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ABSTRACT 



This thesis documents the design of the hardware and embedded software of a digital computer 
that provides autonomous control of the PANSAT spacecraft. The system was designed for use during a 
two year mission in a low earth orbit. The computer uses an Intel M80C186XL running at 7.3728 MHz, 
512 kbytes of error-detection and correction RAM, 64 kbytes of ROM, and standard CMOS components to 
provide a general purpose microcomputer. The purpose of the computer is to control all subsystems of the 
spacecraft, perform analog-to-digital conversions, orchestrate duplicate hardware components to provide 
redundancy, and upload new software from a ground station. The hardware system was built on printed 
circuit boards which were manufactured by the Space System Academic Group and tested for proper 
operation. The embedded software was coded using 80186 Assembler and the C programming language, 
tested for proper operation, and placed into ROM as firmware. 
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I. INTRODUCTION 



A. Purpose 

The purpose of this thesis is to document the design of a system that implements the digital 
computer of the Petite Amateur Navy Satellite (PANSAT). PANSAT is an experimental, low cost, 
lightweight, communications satellite that is currently being designed and built by officer students 
supported by the Space Systems Academic Group at the Naval Postgraduate School in Monterey, 
California. The design consists of the implementation details of the hardware as well as the low-level 
software that is embedded within the system. The computer, called the System Controller, incorporates 
error detection and correction memory for random-access memory, a read-only memory, specialized 
synchronous and asynchronous serial communications, analog-to-digital conversion, a parallel digital bus 
for subsystem control, and power detection and DC-DC conversion. 

B. Scope 

Chapter II provides background information which includes a general description of the PANSAT 
project and its operational environment, radiation effects on electronic circuits, and general conventions 
used when writing this document. The third chapter presents an overview of the organization of the 
electronics of PANSAT, and a description of the hardware and software architectures of the System 
Controller. Chapter IV discusses the hardware design in detail. The fifth chapter describes the software 
device drivers design in detail and Chapter VI examines the higher-level software routines which use the 
device drivers. Chapter VII examines the testing of the hardware and software, presents recommendations, 
and ends with the conclusion. Several appendices follow containing the hardware schematics, the bill of 
materials for the hardware, software block and flow diagrams, software source code, and software 
generation facilities. 
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II. BACKGROUND INFORMATION 



A. THE PANSAT PROJECT 

The PANSAT project began in 1989 as an educational program for students at the Naval 
Postgraduate School’s (NPS) Space Systems Academic Group (SSAG). The project goal is to provide 
meaningful and realistic research topics for students in the area of space systems engineering and space 
systems operations. In doing so, the Space Systems Academic Group has prepared students for space 
related tasks and has developed an infrastructure of facilities and personnel capable of developing space 
qualified systems. 

PANSAT is a small satellite for digital store-and-forward communications in the amateur 
frequency band. It features a direct sequence spread spectrum differentially coded, binary phase shift keyed 
(BPSK) communication system at an operating frequency of 436.5 MHz. The store-and-forward capability 
will allow NPS and amateur radio operators to send or receive messages during several short 
communication windows every day, each 4 to 8 minutes in duration. 

The entire satellite structure weighs approximately 150 pounds, has a diameter of about 19 inches, 
and is designed to be launched as a secondary payload from the Space Shuttle via the Hitchhiker Program. 
PANSAT is a 26-sided polyhedron, as shown in Figure 1, a configuration chosen to maximize solar panel 
area and thus power generation. PANSAT is not stabilized and will tumble freely once put into space. The 
satellite uses an omni-directional antenna system consisting of four quarter wave-length segments to 
achieve near uniform signal coverage regardless of PANSAT’s orientation while tunbling in space. 

PANSAT requirements specify a two-year mission life in a low-earth orbit (LEO) with an 
inclination between 28.5° and 90.0° [Ref. 1]. The Space Systems Academic Group has signed a 
Memorandum of Agreement with NASA Space Test Flight programming, ensuring a future flight onboard 
the Space Shuttle. Space.Shuttle operational limits are altitudes between 203.7 km and 61 1.2 km and 
inclinations between 28.5° and 57.0° [Ref. 2]. 
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Figure 1. PANS AT Structure. 



B. MISSION LIFE AND OPERATING ENVIRONMENT 
1. Thermal Environment 

Thermal analysis for temperatures of electronics inside PANSAT examines two situations: a hot 
case and a cold case, depending on solar flux and Sun orientation, the Earth, and internal power dissipation 
within the satellite. The cold case expects the temperature inside during operation to be between -15°C and 
-6°C, and the hot case predicts temperatures from about -4°C to 13°C [Ref. 3]. While these temperatures 
are well suited for the operation of integrated circuits (IC), the batteries prefer a warmer environment; this 
will be addressed briefly in the section describing the Battery Charge Monitor, in Chapter VI. 
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2. Operational Environment 

PANSAT electronics are expected to provide continuous operation throughout the life of the 
satellite. Solar panels will provide sufficient energy during the sun-soak portion of an orbit to allow 
continuous operations of the satellite and to store energy into the batteries for the eclipsed portion of the 
orbit. The PANSAT System Controller design incorporates two redundant, mutually exclusive, system 
controllers which are prevented from simultaneous operation because of the switching design within the 
electrical power system (EPS). 

3. Radiation Environment 

In LEO, PANSAT will be significantly protected from cosmic radiation and the solar wind due to 
the shielding effects of the Earth’s magnetic field [Ref. 4, p. 662], as well as the thickness of the structure 
itself. The primary source of radiation in LEO is low energy electrons, and low energy protons which are 
encountered mostly in the South Atlantic Anomaly (SAA) from approximately 45° latitude and 45° 
longitude centered near 20°N, 20° W [Ref. 5, p. 2339; Ref. 6, p. 2344]. Energetic protons, an occasional 
source of radiation, are expected with solar flares [Ref. 4, p. 712]. As a result PANSAT should experience 
an ionizing radiation dose rate of about one krad (Si) per year [Ref. 4, p. 452]. 

C. RADIATION EFFECTS ON ELECTRONICS 

There are two primary effects caused by radiation on electronics: an effect from the dose rate that 
causes single event upsets (SEU), as well as a total dose effect. PANSAT will orbit in a relatively benign 
radiation environment compared to other regions of space. The selection of PANSAT electronics 
incorporate some concern for radiation exposure; however, the structure of the spacecraft including the 
boxes which contain the electronic modules provides substantial radiation shielding. As a lowest common 
denominator of electronic component selection where redundancy applies, industrial temperature grade 
integrated circuits fabricated with Complementary Metal Oxide Semiconductor (CMOS) technology using 
epitaxial layers are used. Circuitry of PANSAT that presents a source of a single point of failure uses 
radiation hardened devices. Otherwise, these radiation hardened devices are expensive, power-hungry, and 
an unnecessary choice for PANSAT. 

1. Single Event Effects 

Single event effects (SEE) are the responses of an IC to the passage of a single highly energetic 
charged particle, and include single event upsets (SEU), single event latchup (SEL), and single event 
burnout (SEB). As a particle travels through the silicon layers of an IC, it loses energy creating ionization 
or electron-hole pair generation along its path. Generally, the higher the mass and charge of the particle, 
the greater the amount of ionization produced. 
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SEBs are observed in power MOSFETs where high voltages and electric fields are present; and 
thus are not a real concern for PANSAT electronics of the System Controller. However SELs, the effect of 
activating a parasitic silicon controlled rectifier within a CMOS IC, has the potential to destroy a device or 
a portion of a device while it is in the latched condition. In order to reset the device it must be powered 
off. Fortunately, thoughtful device design can reduce or eliminate this effect. The SEU is the most 
common effect to upset an IC, resulting in a temporary or permanent change of state. SEUs are the result 
of the rate of individual hits on electronics, in particular an IC by high energy particles. SEUs result in 
errors within electronic systems by causing a change in the state of a logic storage element [Ref. 7]. 

2. Single Event Effects Experienced by PANSAT 

PANSAT is expected to experience a variety of SEEs throughout its lifetime. At worst, these 
effects will most likely cause a particular system to reset; initiating a restart of the electronics, as if a launch 
has just occurred. The design of PANSAT allows the electronic systems to be powered down, and then 
back up. Such action clears such SELs. Fortunately, PANSAT is not expected to experience many SELs. 

D. DOCUMENTATION CONVENTIONS 

1. Numbering 

By default, all numbers in this thesis are base- 10 (decimal). Base- 16 numbers (hexadecimal) are 
prefixed by the following notation, Ox . Thus, the number OxOF is the hexadecimal value for 15 (decimal); 
an exception to this rule is found only within the assembly language excerpts of the software module 
startup, asm where the convention of the assembler is to append an h, e.g. OFh. Binary values are either 
evident (only one digit exists), or are pointed out within the text. 

2. Signal Names 

Signal names are chosen to best represent the function they perform. In addition, digital signals 

also include the logic assertion level. If a signal has an overbar across its name, e.g. RD , then that signal 
is considered active LOW; that is, it is considered asserted when the signal is a binary 0, corresponding to 0 
V. Otherwise, the signal is considered active HIGH; that is, it is considered asserted when the signal is a 
binary 1, corresponding to 5 V. 

3. Logic Expressions 

Logic equations for circuit diagrams and Karnaugh map analyses presented in this document use 
the + symbol for the inclusive logical OR function. The logical AND function is represented with the 
symbol *. The overbar either indicates the assertion level of a signal (as explained in the section above) 
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when it is the result of an equation, or indicates the negation of a logic expression. Otherwise, for 
programming languages (i.e. C), the operator rules of the language apply [Ref. 8, Ref. 9], 

4. Software Flow Diagrams 

Software flow diagrams use blocks to depict either a subroutine or a statement. Bold blocks refer 
to subroutines. 



The project background and expected operating environment were considered in designing the 
PANSAT System Controller hardware and software. In addition, the System Controller design was 
influenced by the other electronic modules of the spacecraft. An overview of the hardware and software 
designs as well as an introduction to the spacecraft electronic modules are presented in the next chapter. 
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III. PANSAT ELECTRONICS AND SOFTWARE 

OVERVIEW 



This chapter provides design constraints and tradeoffs that influenced the design of the System 
Controller. Furthermore, an overview of the electronic systems of PANSAT is presented as well as an 
architectural overview of the System Controller hardware and software. 

A. DESIGN CONSTRAINTS AND TRADEOFFS 

The design objective was to build a digital computer (system controller) using readily available 
components. Six major constraints influenced the design: 

• Suitability for use in a short duration low-Earth orbit radiation environment. 

• Printed circuit board area required. 

• Speed of operation. 

• Power required. 

• Cost. 

• High-level software environment support and compatibility with existing software tools. 

PANSAT will operate on a limited power budget; all power is dependent upon solar panels with 
batteries to store power. Generally, faster systems require more power. Furthermore, radiation hardened 
components usually require more power than the non-hardened counterparts. Also, radiation hardened 
parts are usually extremely expensive (averaging 20 times the cost of a comparable high reliability, non 
radiation hardened part). The cost of using radiation hardened parts within PANSAT is neither justified 
nor necessary. 

In general CMOS was chosen over other logic families because of its lower power consumption. 
Often, standard small scale integration (SSI) and medium scale integration (MSI) parts were chosen for 
logic generation because they are readily available and offer decreased susceptibility to SEUs at a 
reasonable cost. Since PANSAT System Controller operates at a relatively low clock rate, power was 
judged as less critical than size and functionality. 

Two families of CMOS logic ICs are used throughout the design of the System Controller, High- 
speed CMOS and Advanced CMOS [Ref. 10]. The Advanced CMOS (AC) is approximately three to five 
times faster than the equivalent High-speed (HS) devices; however, the AC devices consume about 50% 
more power. AC components are also more expensive. AC components are used in the design only where 
necessary. They are mostly found in the memory glue logic. 
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For many LSI and VLSI devices in this design, high reliability (not radiation hardened), military 
temperature rated components are used wherever possible. Many devices are processed to the 
MIL-STD-883 specifications. A few others are processed to industrial specifications. All circuit 
components are identified in Appendix C which contains the Bill of Materials (BOM) for the circuit board 
fabrication. 



B. PANSAT SUBSYSTEM HARDWARE GENERAL 
DESCRIPTION 



Figure 2 shows a block diagram of the entire PANSAT electronics. Redundant modules: System 
Controller (SC), Analog Temperature Multiplexers (TMUX), and Mass Storage (MS), are shown above 
and below the common electrical bus called the Peripheral Control Bus (PCB). Primary and redundant 
module designation is arbitrary since respective modules are essentially identical. Redundant modules in 
standby mode will be powered off. However, because the control bus allows individual module addressing 
by the active SC, either, or both, of the modules (TMUX or MS) may be enabled. The two remaining 
modules of the PANSAT electronics are the Radio Frequency (RF) system responsible for up and down 
conversion of the communication signals, and the Electrical Power Subsystem (EPS) which is responsible 
for the distribution of power on the satellite. 
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Figure 2. PANSAT Block Diagram. 



The EPS controls the charging of the batteries via the solar panels and the distribution of power to 
the rest of the spacecraft. The satellite has 18 solar panels for the production of power. Power is stored in 
two banks of nine batteries each. Each battery bank has the capability of providing complete power for the 
satellite. The mass storage system provides the memory needed for storage of telemetry and data uploaded 
to the satellite by users of the satellite. It contains two redundant systems, each with 4.5 Mbytes of random 
access memory . The TMUX is an analog multiplexer which directs which temperature sensor is being read 
by a System Controller. There are temperature sensors on all major satellite components to provide a 
monitoring capability. 

C. SYSTEM CONTROLLER ORGANIZATIONAL OVERVIEW 

The Ssstcm Controller of PANSAT is an embedded microprocessor-based computer system for 
the satellite. The electronics provide interface circuits to control all of the satellite’s subsystems, as well as 
create an environment capable of supporting high-level software. Firmware, embedded within ROM in the 
computer, is the software that is capable of initializing the entire satellite, maintaining the batteries, and 
conducting simple communications with Earth with the goal of uploading more sophisticated software. 
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1. Hardware Organization 

As mentioned above, the PCB is an 8-bit parallel control and data bus capable of uniquely 
addressing each subsystem in the spacecraft. Each subsystem has a unique power connection, switchable 
by command of the SC via the EPS. Also, each subsystem has a unique address in which it responds to 
commands issued by the active SC to perform reads and writes between the SC and the subsystem. Each 
subsystem has radiation hardened circuitry to interface the subsystem to the PCB. These components were 
chosen because this bus is not redundant and is a single point of failure. The electronic circuits of the PCB 
are always powered on when the spacecraft has bus power. These electronic circuits are responsible for 
isolating a subsystem from the bus when it is not powered on; the same circuits enable each subsystem to 
respond when powered on and addressed via a SC. 

The System Controllers differ from the other subsystems in that they are capable of controlling the 
PCB (rather than responding to the PCB). However, within the EPS is circuitry which allows only one SC 
to be powered on at a time in order to remove the possibility of two controllers manipulating 
simultaneously the PCB. A SC remains powered on unless it fails to notify the EPS within a certain time 
interval; thus a SC is subject to an external watchdog timer contained within the EPS. 

The system controllers are identical in design. However, the remaining discussions will normally 
refer to a single system controller, implying the same applies to the other SC. A SC is best understood by 
viewing its design from a top-down approach. As seen in Figure 3, at the top-most layer is a 
M80C1 86XL-10 microprocessor and some of its support circuitry for a clock and reset circuitry, to the 
right side are four other blocks. On the top-right is the general control input/output (I/O) module, the next 
block down on the right is the serial communications control module, next is the system memory module, 
and at the bottom is the Analog-to-Digital module. Also shown is the signal interface between the 
modules, required within a System Controller. A photo of the completed circuit board is shown following 
the block diagram. 
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Figure 3. System Controller Block Diagram. 
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Figure 4. System Controller Circuit Board. 



The M80C186 is available in many versions, each with a different maximum input clock rate. 
Within this document, 80186 will refer to any version of the microprocessor, and M80C186XL will refer 
specifically to the XL- 10 (10 MHz) version which is used on board PANSAT. 

2. Software Organization 

The software organization of a SC resembles closely the hardware. However, since software not 
only provides control of hardware but also involves a process flow (the goal of the software is to do 
something from start to finish ), further modules are useful in implementing the software for PANSAT. 

The goal of the software described within this document is to provide simple and reliable control 
of the spacecraft in order to upload high-level layers of software which are modifiable from a ground 
station. This software is known as the ROM Boot software. It is embedded on space qualified ROM, and 
is thus a permanent product, also known as firmware. 

Looking at the ROM boot software as in Figure 5, the first software module is responsible for the 
System Controller Startup. Next is the Boot Loader software which works as a large loop, making sure all 
the other modules orchestrate together correctly. Within this boot loading process, there are modules 
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responsible for the control of the batteries, responding to communications requests from a ground station, 
and dealing with scenarios which require alternate configurations of hardware. 



PANSAT ROM Boot. 




Figures. ROM Boot Software Overview. 



Viewing from the software module perspective, Figure 6, there are device drivers for the CPU 
setup, the EDAC RAM, the PCB, the mass storage units, the serial communications, and telemetry 
gathering which includes driving the analog-to-digital circuits. This figure depicts all of the files required 
to describe the code of the entire ROM Boot software. 



This overview presented high-level descriptions of the System Conroller hardware and software in 
order to discuss in more detail the designs of these systems. The next few chapters describe in great detail 
the hardware and software designs of the System Controller, beginning with a presentation of the hardware 
that implements the satellite’s general purpose computer. 
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Figure 6. ROM Boot Software File Hierarchy. 



16 



CL0CK.C I INT.C EDAC.C. MODEM.C RF.C SPACKET.C PRINT.C TERMS.C STPI.C 

CL0CK.H. INT.H EDAC.H. MODEM.H. RF.H. SPACKET.H PRINT.H. TERMS.H. STPI.H. 




IV. SYSTEM CONTROLLER HARDWARE 



A. MICROPROCESSOR 

The M80C186XL-10 microprocessor from Intel [Ref. 1 1, Ref. 12, Ref. 13] provides CPU 
functionality for the System Controller. This 10 MHz version provides well tested and high-level 
integration that is very suitable for PANSAT. Within the M80C186 package are the following integrated 
features: 



• CPU core with a CISC instruction set, compatible with 8086/8088 instruction sets. 

• Programmable memory (5) and peripheral chip (6) selects, with wait state generators. 

• A clock generator, providing three timers. 

• Programmable interrupt controller. 

• Two channel Direct Memory Access (DMA) controller. 

The M80C1 86XL-10 was chosen for PANSAT for many other practical reasons, such as: 

• Military version (providing high reliability at a low cost) of the popular 80186. 

• The design team has extensive experience designing Intel-based embedded systems. 

• Software development tools were already available for this CPU architecture. 

1. Reset Circuitry and Timing 

A simple RC circuit forces the RES input of the M80C186XL low for a sufficient time so that the 
CPU assumes a Reset state. Values of R = 10 kQ and C = 1 pF create a time constant of 10 msec, assuring 
the System Controller board of stable power by the time the CPU Reset state is assumed. 



2. Input Clock 

A fixed frequency source of 14.7456 MHz feeds the XI input of the M80C186XL, which in turn 
divides that signal by two to form a 7.3728 MHz processor and board level system clock for the peripheral 
devices which use clocks (serial communications controller, memory, and the A/D converter). This is well 
within the timing limits of the peripherals. Of particular concern are two peripherals. First, the 82C55A 
will operate up to 8 MHz (it does not use a clock, but rather will read and write up to a speed of 8 MHz). 
Second, the EDAC unit is designed to work with this timing, and would only allow approximately a 15% 
faster clock. Faster components would have to be incorporated in the design if the clock rate were to 
increase (this increase in speed would also cause an increase in power consumption). 
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3. Interrupts and Direct Memory Access 

The M80C186XL has an Interrupt Control Unit, shown in Figure 7, which synchronizes and 
prioritizes interrupt sources and provides the interrupt vector to the CPU. Hardware interrupts can 
originate from on-chip peripherals (such as the timers) and from four external interrupt pins. 



TIMER TIMER TIMER DMA DMA INT INT INT INT 




Figure 7. Interrupt Control Unit Block Diagram [from Ref. 12] 



External hardware interrupts supported with the design of the System Controller are Interrupt 
Requests (IRQ) 0-3, which are labeled INTO - INT3, and the DMA requests, which are labeled DRQO 
and DRQ1. IRQO through IRQ3 map to absolute interrupt numbers 12 through 15. DRQO and DRQ1 
map to absolute interrupt numbers 10 and 11. The IRQs are designated to the peripherals of the System 
Controller that require interrupt support, as shown in Table 1. The DMA interrupts are used with data 
transfers with the SCC. 



Interrupt/DMA 

Request 


Absolute 

Interrupt 


Purpose 


INTO 


12 


SCC (85C30) 


INTI 


13 


A/D Converter (LM 1 2H45 8) 


INT2 


14 


EDAC Hard Error 


INT3 


15 


EDAC Soft Error 


DMAO 


10 


SCC W / REQA (Receive request) 


DMA1 


11 


SCC DTR / REQA (Transmit request) 



Table 1. External Interrupt Requests. 
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4. Memory and Chip Selects 

The M80C186XL supports many programmable memory and chip select signals which reduces 
the number of external components needed to perform the logic of address decoding to memory and 
devices. For memory chip selects, there are six select outputs for three memory address areas: upper, 
midrange, and lower memory. One signal is provided for upper, another for lower, and four for the 
midrange memory. The range and starting addresses are user-programmable. A unique configuration was 
chosen for PANSAT. The ROM select is generated using the upper memory chip select. Traditionally, 
RAM is selected using a combination of the lower chip select and midrange chip selects, depending on the 
amount of RAM. Since only 512 kbytes of RAM exist, it is possible for the midrange chip select logic to 
generate all the select signals to the RAM. Since all of the RAM is ED AC controlled, this reduces RAM 
decoding since only the midrange chip selects need examining, the lower memory chip select can be 
ignored. 

The M80C186XL supports up to seven external peripheral chip selects. However, the System 

Controller only uses five chip selects ( PCS4 - PCSO ), leaving the remaining chip selects as buffered 
addresses (A1 and AO) of the CPU. These chip selects access a contiguous block of I/O address space. 
Each chip select goes active for 128 bytes. The base address can begin on any 1 kbyte boundary, and is 
programmed to begin with address 0 for PANSAT. Figure 8 shows the chip-select block diagram of the 
M80C186XL. Table 2 shows chip-select allocation for PANSAT. 



INTERNAL 

ADDRESS 

BUS 



= BLOCK SIZE 






P^Tbase} 



= BLOCK SIZE/4 
= BLOCK SIZE/4 
= BLOCK SIZE/4 
= BLOCK SIZE/4 



- MCS3 

MCS2 

MCS? 

' MCSO 



MEMORY/ 
VO SELECTOR 
MS 



X 



BASE +■ 0 
BASE * 128 
BASE + 256 
BASE 4 384 
BASE 4 512 
BASE 4 640 
BASE + 768 



PCSO 

PC$i 

PCS2 

PCS3 

PCS4 



INTERNAL 
ADDRESS BIT 







A 


MUX 


PC $5 


A2 


B 


A/B 


PCS6 



EX 

CONTROL BIT 



Figure 8. Chip Select Block Diagram [from Ref. 12]. 
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Chip Select 


Function 


Address Range 


ucs 


ROM chip select 


OxFOOOO - OxFFFFF 


MCS3 - MCSO 


RAM chip selects 


0x00000 - 0x7FFFF 


LCS 


Unused. 


Inactive. 


peso 


SCC (85C30) 


i/O: 0x00 - 0x7F 


PCS1 


A/D (LM12H458) 


I/O: 0x80 - OxFF 


PCS2 


PPI (82C55A) 


I/O: 0x100- Ox 17F 


PCS3 


Modem Latch 


I/O: 0x180- Ox IFF 


PCS4 


PA- 100 


I/O: 0x200 - 0x27F 



Table 2. Chip Selects. 



5. Timers 

The M80C186XL contains a timer control unit which has three timers, of which two have external 
inputs and outputs. The internal timer, Timer 2, is used as a system clock tick generator. The two timers 
with external outputs, also have external inputs, allowing the triggering of the timers from external sources, 
independent of the CPU clock. Except for a system clock, the only other need for a timer for the System 
Controller is a hardware-timed power on switch for the RF output. Since the RF output can be on for up to 
ten seconds, the two timers are connected in cascade. These timers are used with an external gate to force 
the RF output off when the timer output expires. 

B. POWER SENSING AND REGULATION 

Power sensing and regulation are an important part of the System Controller circuitry. The 
circuits provide signal isolation between the System Controller and the Peripheral Control Bus when the 
SC is powered off, monitor switched power from the Electrical Power Subsystem (EPS), and provide 
regulated +5 V to the System Controller when active. 

1. Power On Detection 

The MAX8212 [Ref. 14] is a programmable voltage detector used to sense the powering on of a 
System Controller by the EPS. Since only the circuitry which isolates a System Controller from the 
Peripheral Control Bus (PCB) is active at all times, this voltage detector has the responsibility of quickly 
sensing the power on, removing the signal isolation between the System Controller and the PCB and 
activating the DC-DC converter, the MAX744A. The output (OUT) of the MAX8212 controls the enabling 
of the pass gates, 54HC125s, used to isolate signals between the SC and the PCB when the SC is inactive. 
When power on is not detected, OUT is high, disabling these gates. This circuitry is shown in Figure 9. 
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Figure 9. Power On Detect and Signal Isolation. 



The resistors labeled 120 are 120 Q resistors used to reduce current leakage into non-powered devices 
when the SC is not active. 

The MAX82 12 uses input hysteresis to set the detect on and detect off voltage levels. These 
levels are programmed with external resistors. The selection of the resistors was determined by solving for 
the equations given in the databook (Equation 1) in conjunction with selecting resistors that are available as 
1% precision and highly reliable and reducing the source current used by the device. Three resistors are 
used, R P , Rq, and R s . The detect voltages are V h , for the high voltage in which the power on detect occurs, 
and V,, for the low voltage in which the power off detect occurs. 
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y,= 



k R q + R s 



+ R P 



v p 



\R p j 



(1.15) and V h = 



'*, + V 



R p 



(1.15) 



(l) 



Power from the EPS to a System Controller will be between approximately 10 V to 15 V, 
depending on whether the solar panels are supplying power or the condition of the batteries, if stored 
energy is supplying power. A detect on, Vh, voltage of 9.0 V, and a detect off, VI, voltage of 8.0 V were 
selected. The resulting resistor values were determined: R P = 2 1 .5 kQ, Rq = 147 kQ, and R s = 1.0 MQ 
(all 1%). The resulting source current is 53 pA which is within the low operating range of the device. 

2. DC-DC Conversion 

The MAX744A [Ref. 15] is a current-mode pulse- width modulation DC-DC converter. This 
device awaits the EPS to provide the System Controller with switched power. The MAX744A takes an 
input voltage between 6 V and 16 V, an ideal range for the EPS, and converts it to a 5.0 V ±5% output. 

The device can support a load current of up to 750 mA. 

Operating at an input voltage of 12 V, the MAX744A is most efficient (90%) when supplying 
about 400 mA of current. The System Controller and the Modem unit powered together require about 350 
mA (87% efficient). When operating with the Modem unit powered off, a System Controller requires 
about 70 mA of current (83% efficient). In normal operations, both the SC and the Modem will be 
powered on continuously. 

The MAX744A requires some support circuitry (resistors, capacitors, inductors, and a diode). 

The resistors and capacitors mostly control the programmable soft-start to ensure an orderly power-up by 
limiting surge currents. The recommended values for the components were used with the exception of the 
capacitor, Cl, between the Soft-Start input and ground, and resistor, Rl, between the Soft-Start input and 
Shutdown output. Selecting Cl =0.1 pF and Rl = 51 1 kQ while expecting a typical input voltage of 12 V 
and an output current of 350 mA, a Soft- Start time of 5 msec is expected. Thus, the 10 msec Reset of the 
M80C186XL-10 is generous. On the output side, a low equivalent series resistance (ESR) capacitor was 
used to keep the output ripple less than 50 mV peak-to-peak. Additionally, an optional low-pass filter 
using an inductor and capacitor was added to further reduce the output ripple to about 5mV peak-to-peak. 
The resulting circuitry is shown in Figure 10. 
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Figure 10. DC-DC Conversion. 

C. PERIPHERAL DATA BUS 

This section applies to the design of the Peripheral Data Bus which excludes the serial 
communications control (via the SCC) and the analog to digital converter. The Peripheral Data Bus 
consists of the circuitry required to implement the Peripheral Control Bus, circuitry to buffer signals that 
are passed on to peripheral devices (i.e. the 82C55 and the Modem board, and control signals for the 
EDAC and Modem board power). 

The System Controller contains circuitry to provide the driving capability of the Peripheral 
Control Bus (PCB) which links all of the subsystems of PANSAT with a common control and parallel data 
bus. This is accomplished using a programmable peripheral interface (PPI, or 82C55A) integrated circuit. 
In addition to manipulating the PCB, the PPI also controls the signaling to the memory system (the error 
acknowledge in the EDAC) and the power switch control to the Modem unit. 

1. Programmable Peripheral Interface 

The 82C55A is a CMOS version of the standard 8255A which provides a general purpose 
programmable peripheral interface (PPI) [Ref. 16]. There are 24 I/O pins which may be individually 
programmed in certain logical groups and operational modes. 

2. Peripheral Control Bus (PCB) 

During satellite startup, the Electric Power Subsystem (EPS) provides +5 V to the PCB. The EPS 
also cycles all power switches to the peripheral modules so that all are powered off except the +5 V power 
to the PCB. The PCB must be powered up prior to powering on a System Controller module. 
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Using the 82C55A in a strobed bi-directional parallel data transfer configuration with hardware 
handshaking, a digital bus was created with 8 data lines, 6 addressing lines, and two control lines consisting 
of read and write. In this mode, Port A of the 82C55A is the bi-directional data buffer. And Port B 
provides an uni-directional address and control buffer. Port C provides the handshaking and three general 
purpose control lines which are used for controls not on the PCB, but within the System Controller, 
specifically the Modem Power control and the EDAC Error Acknowledge controls. 

Two data transceivers, 54HC245, are used to isolate the 82C55A from the PCB connector. Other 
signals potentially coming off the SC board onto the PCB are the System Controller Active (SC_A) and the 
RF Enable (RF_EN) signals. These signals are isolated from the PCB using a quad digital switch, a 
54HC125. The voltage threshold detector mentioned earlier assists in the implementation of the PCB 
isolation circuitry. This circuit disables the two data transceivers and the one digital switch from the PCB 
in the event that the SC board is powered down. 

A 25-pin male D connector is used for connection to the PCB. It contains the eight bits of data, 
six bits of address, 2 bits of control, +5 V, switched +12 V, grounds, the System Controller Active (SCA) 
signal, and the RF Enable (RF_EN) signals. Appendix B shows the pin assignments. 

3. Modem Control Interface 

The Modem is tightly coupled to the System Controller microprocessor, similar to other on-board 
peripherals. However the Modem unit is physically contained on another board connected to the System 
Controller via a 37-pin female D connector. Using data transceivers on each board next to the connectors, 
buffered address, data, and control signals from the M80C186XL are passed to the Modem. Besides the 
microprocessor interface, the Modem also shares signals with a Serial Communications Controller (SCC, 
85C30) which is described later in this chapter. The signals shared between the Modem and the SCC are 
synchronous transmit and receive data, and their corresponding clocks. Also included are a signal to 
deliver the temperature of the Modem board to the System Controller and power and ground. The pin 
assignments are given in detail in Appendix B. 

The Modem operates independently of the microprocessor. However, the heart of the Modem 
board is the PA- 100 demodulator [Ref. 17] which requires configuration by downloading (from the CPU of 
the SC) parameters as register sets. Occasionally, this processor requires its status to be read by the 
microprocessor, to determine if a different configuration is needed. Otherwise, the Modem sends and 
receives synchronous digital data between itself and the SCC on the System Controller without constant 
supervision by the microprocessor. 

Power is distributed to the Modem board in two ways. First, because the Modem board has 
isolation buffers which disable signals when the board is supposed to be powered off (similar to the PCB 
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isolation circuitry), there is +5 V delivered to the board at all times via the V cc pins. Furthermore, when 
the Modem board is switched on by the System Controller, +5 V is delivered to the board via the +5 V 
pins. The switched power is handled by a Power Distribution Switch, the TPS2013 [Ref. 18]. The 
TPS2013 is a logic controlled heavy capacitive load power distribution switch in the form of an IC. It 
handles a maximum continuous current load of 1 .5 A (more than sufficient for the 250 mA load of the 
Modem when powered on). This switch is controlled by the Modem Power (MODEMPWR) signal which 
originates from Bit 0 of Port C of the 82C55A, and is active low. 



4. CPU Signal Isolation and Latching 

In order to reduce the signal loading on the CPU and to ease the timing requirements on the I/O 
digital circuitry, an address latch, a data transceiver, and control signal buffers are used as shown in Figure 
1 1. Since the data signals are bi-directional between the CPU and the I/O peripherals, an appropriate bi- 
directional data transceiver is used, the 54HC245. This device is enabled using Peripheral Chip Selects of 

the CPU, PCS4 - PCS2 , when the Data Enable ( DEN ) of the CPU is active. The direction of the transfer 

is controlled by the Data Transmit/Receive ( DT / R ) signal of the CPU. Address signals travel one 
direction only, from the CPU to the peripherals. Furthermore, since the peripherals themselves decode 
whether or not they are addressed using the Peripheral Chip Selects, addresses generated by the CPU are 
latched every time they are generated. The Address Latch Enable (ALE) signal qualifies the addresses. A 
simple latch, the 54HC573, is used to capture the addresses. Note, since Address 0 (AO) of the CPU is not 
used for I/O addressing this signal is not passed through the address latch. For peripherals, A1 is the least 



U7 U10 




U1:C 




Figure 1 1. CPU Signal Isolation and Latching. 
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significant address bit. From the CPU point of view, all peripherals are even addressed. Furthermore, the 

Read ( RD ) and Write ( WR ) signals from the CPU are buffered. Normally, these signals are not buffered 
since they have adequate driver power. However, these signals are delivered off board to the Modem. 

5. Signal Timing to Modem Board 

All of the peripheral ICs that integrate with the M80C186XL use an active low write signal, WR . 
The write action occurs on the rising edge of the write signal. This signal is sent through the Modem 
connector to supply the signal to the Modem board latch as well as the PA- 100. The PA- 100 however uses 
the falling edge of the write signal to perform a write action. Unfortunately, data from the CPU only 
becomes stable at this exact same time. This problem is worsened because the data enabling logic on the 
System Controller, which controls the enabling and direction of the bi-direction signal driver, delays the 
delivery of the data signals to the Modem board. As a solution to this problem, a higher speed device is 
used for the signal driver, the 54AC245 versus the 54HC245. In addition, the decoding logic of the 

peripheral chip selects, PCS4 - PCS2 , uses a high speed device for the OR gate, the 54AC32, to more 
rapidly enable the signal driver. The slower speed gate which ANDs PCS3 with PCS2 poses no problem 

since during a write to the PA- 100 these signals are high and do not change. Finally, WR from the 
microprocessor is sent through an unused AND gate with the other input held high. This provides a further 
delay of the write signal to the PA- 100. 

D. MEMORY 

The M80C1 86XL has a 16-bit wide external data bus. The memory address space is 20-bit, 
providing up to 1 Mbyte of byte addressable memory locations in the range from 0x0 through OxFFFFF. 
The memory address space on the 16-bit data bus is physically implemented by dividing the address space 
into two banks of up to 5 12 kbytes, as shown in Figure 12. One bank connects to the lower half of the data 
bus and contains even addressed bytes, where A0 = 0. The other bank connects to the upper half of the 
data bus and contains odd addressed bytes, where A0 = 1 . Address lines A 19 - A1 select a specific byte 

within each bank A0 and Bus High Enable (BHE) determine whether one bank or both banks are used in 
the data transfers 
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PHYSICAL IMPLEMENTATION OF THE 
ADDRESS SPACE FOR 16 -BIT SYSTEMS 

512 KBYTES 512 KBYTES 




Figure 12. 80186 Memory Addressing [from Ref. 12]. 



The System Controller Memory includes 64 kbytes of ROM and 512 kbytes of SRAM. Both 
types of data are addressed from the 16-bit wide external data bus explained in Figure 12. The memory 
system requires special buffers to temporarily latch both addresses and data during the memory access read 
and write cycles. Data transceivers reside between the memory circuitry and the microprocessor to reduce 
the signal loading on the external CPU address and data bus. The block diagram of Figure 13 shows a 
logical structure of this memory system. On the left are signals that pass between the CPU and the memory 
system. The AND gates combine the four memory chip selects from the CPU into one signal for the entire 
512 kbytes of RAM access. The block labeled ADDR_LATCHES latches a memory address during the 
beginning of a memory read or write cycle. The blocks in the middle labeled EDAC_MASTER_SM and 
EDAC_SLAVE_SM contain circuitry that implements the state machines to control the EDAC controller 
(the ACS630MS). The DATA_XCVRS block isolates the microprocessor data bus from the memory 
devices, reducing the signal loading of the CPU external address and data bus. The block named RAM 
contains the SRAM devices as well as the EDAC controller. At the bottom right is the ROM block. 
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Figure 13. Memory Block Diagram. 
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1. ROM 

PANSAT has 64 kbytes of ROM, composed of two devices which implement the even and odd 
banks. The M27C256 is a 256 kbit (32 kbyte x 8-bit) CHMOS UV Erasable PROM. This is a 5 V only 
EPROM requiring low power (200 pA maximum standby, and 30 mA maximum active). This is a military 
temperature range device with a high degree of protection against latch-up [Ref. 19]. This device provides 
easy interfacing with the M80C186XL. For development purposes, a low-cost standard version of this 
device exists. All devices can be programmed easily using the Dataman S4 [Ref. 20]. 

2. Error Detection and Correction 

Error Detection And Correction (ED AC) circuitry provides single-bit error correction with dual- 
bit error detection for all of PANSAT’s CPU-addressable Static Random Access Memory (SRAM). The 
error detection and correction is accomplished using a Hamming code to generate a check word for each 
data word stored in memory. The level of EDAC protection needed determines the number of check word 
bits per data word. Providing single-bit error correction with dual-bit error detection to an eight data bit 
word requires five check bits. To provide the same level of detection to a sixteen data bit word requires six 
check bits. 

When a data word is stored in memory, the associated check word is also stored. During a 
memory read operation the data word and the corresponding check word are retrieved from memory. A 
new check word based on the data word from memory is generated and compared with the stored check 
word. If the two check words are identical, the data word is assumed correct; however, three or more bit 
errors may not be detected. Correctable errors are identified and corrected. Words that are not correctable, 
but detected as incorrect, cause the error to be flagged. 

a. Existing Design 

The original Error Detection And Correction (EDAC) circuitry was designed by Oechsel 
[Ref. 21]. This design is a memory bus controller using a commercially available EDAC IC, the 
ACS630MS [Ref. 22]. The controller implements a sequential state machine to generate the required 
control signals for the SRAM (Mosaic’s MSM-8256 [Ref. 23]), provides transceivers and latches to isolate 
the SRAM data bus from the microprocessor local bus, and coordinates the operation of the EDAC IC. 

b. Modifications of the Write Back Control 

The original design requires that every word accessed from memory be written back to 
memory, regardless if there is an error or not. This is a good design in that the memory bus controller 
automatically corrects the error in the data word that is sent to the CPU, as well as the original data word in 
the SRAM. Although this does not affect the speed performance of the System Controller, since the EDAC 
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write-back occurs within the memory access cycle of the CPU, it does affect the power used. Writing back 
to every accessed memory location requires substantial extra memory accesses (i.e. using extra power) as 
compared to only writing back when memory is written to, or when memory is read and an error is 
detected and corrected. As a result, the write back control logic was modified to only write to memory 
when memory is being written to by the CPU, or when an error is detected and corrected following a 
memory read access. 

The control signal that causes SRAM to write a data word is MEM_ WR . Figure 14 
shows a Karnaugh Map and the resulting equation that eliminates the write back of data during read cycles 
when the single error latch is not set. 




Figure 14. Memory Write Back Logic. 



Using unused gates from the remaining glue logic needed to implement the memory bus 
controller, Figure 15 shows the circuitry which performs this write back function. 




c. Modification of the Reset Circuitry 

The original design used an inverter to reset the master state machine. As an alternative, 
the flip-flop’s reset input is directly connected to V cc . This is possible because by the time the 
M80C 1 86XL has completed a reset during power up, it has asserted the reset signal during the power up, 
and the flip-flop has already reached the initial standby state (00). 
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d. Modification of the EDAC Error Acknowledge 

During the development of the original EDAC circuitry, for simplicity one of the 
peripheral chip selects of the M80C186XL was used to acknowledge a hard or soft error. Since all the 
peripheral chip selects have I/O addressing responsibilities for the System Controller, an alternative was 
needed. The 82C55A described above has control bits available on its Port C. Bit 2 of this port is used as 

the ERR_ ACK signal to the EDAC. 

e. Modification of the Transceiver Enables 

The original design of the EDAC circuitry connected the ROM directly to the 
microprocessor data bus. However, it is desirable to isolate the ROM from this data bus. To use the same 
transceivers that are used for the SRAM, additional logic was needed at the state machine outputs which 

control the enabling of these transceivers. Allowing a valid combination of Data Enable ( DEN ) and the 

Upper Memory Chip Select ( UCS ) with the state machine’s output (which is valid for a SRAM access), 
the following circuitry in Figure 16 shows the modification. 




Figure 16. Memory Transceiver Enable Logic Circuit. 



E. ANALOG-TO-DIGITAL CONVERSION 

The System Controller is responsible for converting all analog signals pertaining to satellite 
telemetry (voltages, currents, and temperatures) to a digital counterpart. The SC accomplishes this using a 
dedicated analog-to-digital converter which is tightly coupled to the microprocessor bus. In addition, since 
incoming analog signals arrive whether or not the SC is active, an analog switch is used in conjunction 
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with the PCB isolation circuitry to automatically isolate these signals from a non-active SC. A low-pass 
filter removes the high frequency components associated with the Electrical Power Subsystem DC-DC 
conversion (and other high frequency noise generated within the satellite). 

1. A/D Converter 

National Instrument’s LM12H458 [Ref. 24, Ref. 25], a 12-bit data acquisition system, is used to 
provide analog-to-digital conversion to the System Controller. This device provides single-ended or 
differential self-calibrating conversion with its own sample-and-hold. Multiple conversions remain in a 
16-bit, 32 register FIFO buffer. An internal 8-word RAM stores the conversion sequence for a program 
that can acquire independently and convert up to eight acquisitions through the eight-input multiplexer. 

The LM12H458 runs on +5V and an input clock of up to 8 MHz. In standby mode, the device consumes a 
negligible 40 pA (maximum). Input signals can range from ground to +5.0 V. 

For PANSAT, the LM12H458 is configured to interface with the M80C186XL in a 16-bit data 
mode. The inputs of the LM12H458 can be single-ended or differentially acquired by use of 
programmable input configurations. In differential mode, the off-board analog signal with its accompanied 
ground are converted as a positive signal with reference to this accompanied ground signal. Otherwise, the 
ground of the LM12H458 can be used when converting in the single-ended mode. For the temperature 
sensor ICs, local to the SC and the Modem board, these signals are delivered single-ended, and thus 
conversion uses this mode only. 

The LM12H458 is capable of interrupting the microprocessor and uses this to signal end-of- 
calibration and end-of-sequence (acquisition finished) conditions. Although DMA is available, it is not 
used, sacrificing the M80C186XL’s two DMA channels exclusively for the Serial Communications 
Controller. 



2. Analog Switch 

Immediately after entering via the connector on the SC, analog signals pass through an analog 
switch. The DG41 1, a monolithic quad SPST CMOS analog switch from Harris [Ref. 26], provides this 
feature. This device has a low On-Resistance (less than 35 Q), and is a very low power device consuming 
approximately 5 pA. As mentioned earlier, incoming analog signals arrive whether or not a System 
Controller is active. Thus, this analog switch is used to isolate the incoming signals from a non-active SC. 
Three of the four channels of the DG41 1 are used to handle the off-board signals from the Electrical Power 
Subsystem and the two Temperature MUXing Subsystems. When the SC is powered off, this device is 
powered via the Peripheral Control Bus and the switches are forced open. Upon being powered on, the SC 
is designed to automatically close these switches, allowing the external analog signals to enter. 
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3. Voltage Clamping and Low-pass Filter 

Studies performed on a prototype of the Electrical Power Subsystem indicated high frequency 
components in incoming signals at frequencies around 4.5 kHz, attributed to the switching power supply’s 
DC-DC converter. Furthermore, unaddressed multiplexers from the Temperature MUX subsystems and 
the EPS create signals of about 9.5 V. After advancing through the analog switch, an analog signal is 
potentially clamped if over 5.0 Volts using a 5.1 V Zener diode, 1N75 1, and then enters a passive low-pass 
filter using an RC circuit where R = 1 kQ and C = 0.1 pF. The filter is shown in Figure 17. The filter 
provides a -3dB break frequency at 1 .5 kHz. 



VlN 
O— » 



-AAAr- 

1 k 



VOUT 



in 

r* 

z 



3 

(S> 



Figure 17. Voltage Clamping and Low-pass Filter 



4. Wiring 

As mentioned earlier, the acquisition of off-board analog signals can be performed differentially 
or single-endedly. Undesirable potential ground-loops may exist within the satellite electrical systems, 
causing differing ground reference points. In order to be able to compensate for this potential problem, the 
analog input system was designed to allow the following configurations. Off-board analog signals coming 
into a System Controller are sent using a twisted-pair wire set. One signal in the twisted pair is the so- 
called positive signal which carries the signal of interest for conversion. The other wire in the pair is the 
ground from the electronic circuits that are responsible for generating the signal for conversion. 

For the analog signals entering the System Controller, the board was designed to allow one of the 
following configurations. The ground signal from a twisted-pair can be ignored by using the single-ended 
mode of the LM12H458; this feature is software configurable. Additionally, a twisted pair ground signal 
can be isolated from the System Controller circuitry by not allowing the signal to pass beyond the 
connector; this is accomplished using a jumper. 

5. Connector 

A nine-pin male D connector passes incoming analog signals to the System Controller board. The 
pin-out is given in Appendix B. 
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6. Temperature Sensing 1C 

Although not part of the A/D conversion circuitry, a temperature sensing IC is used to provide a 
temperature sensor for the System Controller. A single-supply centigrade temperature sensor, the LM50C 
[Ref. 27], is a precision IC temperature sensor that can sense a range of -40° C to +125° C. The output 
voltage is linearly proportional to the temperature. It consumes very low power with a quiescent current of 
less than 130 pA while operating at + 5 V. This sensor delivers its signal into the Analog-to-Digital 
converter. 



F. SERIAL COMMUNICATIONS 

The System Controller contains circuitry that allows both asynchronous and synchronous serial 
communications. The asynchronous mode provides an RS-232 compatible interface suitable for 
connecting to a standard computer serial interface, such as the COM port on a personal computer. The 
asynchronous RS-232 port is used for this purpose. In the synchronous mode, the System Controller is 
able to communicate with PANSAT’s Modem. The synchronous digital data passes through the Modem as 
the interface to the RF unit to provide the BPSK and spread-spectrum communication modes (either at 
9846 bits per sec for spread-spectrum mode or at 78.125 kbits per sec for the narrow band mode). 

PANSAT will transmit and receive at a center frequency of 436.5 MHz using direct sequence 
spread spectrum (DSSS), differentially encoded phase shift keying (DPSK) modulation. The 
communications data rate will be 9842 bits per second with a chipping rate of 1.25 mega chips per second. 
The chipping sequence is a pseudo random noise sequence produced from a 7 stage linear feedback shift 
register. In addition, the satellite will have a narrow band high data rate channel with a data rate of 
78.125 kbits per second. 

1. Serial Communications Controller 

The heart of the serial communications circuitry is the AM85C30 [Ref. 28], a serial 
communications controller (SCC) which provides two serial channels that are independently configurable 
for asynchronous or synchronous transmission modes with separate transmit and receive clocks. The SCC 
functions as a serial-to-parallel and parallel-to-serial converter with the CPU. It is software configurable 
by the M80C186. The SCC interrupts the microprocessor using the M80C186’s Interrupt Request 0, 

INTO. The signal, INT , is active low on the SCC and is thus inverted to be compatible with the active 
high INTO. A pull-up resistor keeps the output of the inverter low during the SCC initialization, thus 
producing no interrupt to the CPU. This circuitry is shown in Figure 18. 
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Figure 18. Serial Communications Circuitry. 



Channel A of the SCC is designated the synchronous channel for serial communications between 
the CPU of the System Controller and the Modem board. This channel is configured to send and receive 
data using external clocks (TRxCA and RTxCA) which are generated by the Modem board. While 
operating in the narrow-band mode, the modem supplies transmit and receive clocks of 78.125 kHz (1 byte 
every 102 psec). In the spread-spectrum mode, the modem supplies transmit and receive clocks of 9.842 
kHz (1 byte every 813 psec). Furthermore, the transmit and receive data signals (TxDA and RxDA) pass 
through to the Modem board. Channel A is also configured to assert the Request To Send (RTSA) signal 
which acts like a Push To Talk function found on radio transmitter equipment. This signal will be used to 
drive the RF unit when transmitting. Channel A has some additional signals used specifically with the 

CPU for DMA. The signals for a Receive Request ( W / REQA ) and for a Transmit Request 
( DTR / REQA ) are tied directly to the CPU’s DMA interrupt request inputs. The SCC uses active high 

assertion levels for its DMA requests: W / REQA for DMAO and DTR / REQA for DMA1. Inverters are 
used as in the case of the interrupt request, shown in Figure 18. This hardware configuration is capable of 
full-duplex communications. However, the hardware will only operate in a half-duplex due to the 
allocated frequency bandwidth in which PANSAT will operate. This synchronous channel is programmed 
to operate in the Synchronous Data Link Control (SDLC) mode which applies a cyclic redundancy check 
(CRC) using the CCITT CRC- 1 6 algorithm with a CRC seed of OxFFFF. Thus, all synchronous data 
frames which fail the CRC are flagged as invalid and are ignored by software. 

Channel B of the SCC controls the asynchronous serial communication between the CPU of the 
System Controller and a separate Computer. This channel hosts the Serial Test Port Interface which is used 
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only for ground-based operations before launch. It is configured to send and receive data using an RS-232 
driver, describe below. This channel also drives Request To Send (RTS) and Clear To Send (CTS) signals 
which are used in the RS-232 handshake. A common clock, generated internally by the SCC as derived 

from the peripheral clock, is used to generate a data rate of 9600 bits per second. RTSB is used to drive the 
enable of the RS-232 driver discussed below. 

2. RS-232 Drivers and Receivers 

The MAX21 IE [Ref. 29] has multiple RS-232 line drivers and receivers that are suitable for 
communications in a harsh environment. Although the asynchronous communication mode will not be 
used while in flight, this mode will be used extensively during development, integration, and testing. This 
port is a main source of external physical coupling with other electronics, and a potential source of damage 
to electronics within the satellite. Thus, the justification for the device which has ±15 kV electrostatic 
discharge protection. In RS-232 terminology, the System Controller acts like a Data Communications 
Equipment (DCE) and the separate computer is a Data Terminal Equipment (DTE). The signal 
assignments, described in Appendix B, follow this convention. The MAX21 IE is enabled by using the 

RTSB output of the SCC. When disabled (when not used for development purposes), the MAX21 IE uses 
a maximum supply current of 50 pA. 

3. Connector 

A 9-pin female D connector is used to pass the signals from Channel B used for asynchronous 
communication between the System Controller board and a separate computer. The pin-out configuration 
was chosen to be compatible with a personal computer COM interface so that a null-modem interface 
(crossing of send/receive signals) is not necessary. Thus, a straight through cable is used to connect the 
two systems. The signals, shown in Appendix B, are from the point of view of the System Controller. 



This concludes the discussion of the System Controller hardware design. This hardware supports 
the development and operation of software that control the spacecraft’s electronic modules by using the 
satellite’s general purpose computer. The device drivers for the System Controller hardware and the 
electomic modules of PANSAT are described in detail in the following chapter. 
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V. SYSTEM CONTROLLER SOFTWARE DRIVERS 



A. DESCRIPTION 

The Spacecraft Software for PANSAT is contained within the System Controller as partially 
embedded in ROM and additionally uploaded (from Earth) at the time of system bootup and when software 
updates are desired. Within PANSAT lie two (2) System Controllers, each with identical Spacecraft 
Software ROM. 

Operation of the spacecraft software consists of the completion of the hardware initialization and 
the creation of a runtime environment suitable for higher-level layers of software. Operation then consists 
of monitoring and charging the batteries while establishing primitive communication with the PANSAT 
Ground Station at NPS to begin the upload of the main operating system kernel and the secondary loader. 
Thereafter, a higher level protocol will then upload BAX (the BekTek AX.25 protocol handler), and 
another telemetry collector. AX.25 is a data-link layer protocol designed and used by the Amateur Radio 
community to perform digital packet radio communications [Ref. 30]. Using AX.25, the File System and 
user services software are uploaded. Finally, the spacecraft is then ready for ggeneral use. 

The software is written in C with 80186 assembler for critical code and the initial Bootstrap 
software. The spacecraft software incorporates the Spacecraft Operating System [Ref. 31] (SCOS), to 
provide an Application Program Interface (API) to simplify the job of writing multi-tasking applications. 
The Spacecraft Software also incorporates BAX [Ref. 32], to provide another API to simplify the use of 
AX.25 for Spacecraft Software tasks. 

The spacecraft software involves the porting and integration of SCOS and BAX. It also consists of 
various device drivers to interface with the hardware systems of the spacecraft, the collection and saving of 
telemetry, and an interface capability with possible experiment payloads via an RS-232 interface. 
Furthermore, the spacecraft software contains a store-and-forward mail system which uses the services of 
the File Transfer Lc\cl 0 (FTLO) protocol [Ref. 33]. Administration and system software and parameter 
update capabilities arc also part of the spacecraft software. 

The discussion of software development that follows concentrates mainly on the code responsible 
for the Bootup software which is embedded in ROM; this is the core of PANSAT’s device driver software. 
Therefore, when referencing the generic term software within the following text, the reference will be to 
this Bootup software which contains the core device drivers and boot loader and not SCOS, BAX, nor the 
high-level user services. 
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B. HIERARCHY AND MODULE RELATIONSHIPS 



A flow of software control from Reset to the completion of the Final Loader can be viewed below. 
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Table 3. Relationships Between Software Modules. 



c. STARTUP 

The name Startup refers to a software source code module. This module is software composed in 
80186 assembly language and is called startup.asm. After a System Controller receives a reset, it is the 
software contained within this module which is invoked first, containing the bootstrap code at the 
hardwired absolute memory location of OxFFFFO which is contained within the ROM. 

Startup has several goals. The first is to initialize any hardware peripheral on the System 
Controller board itself, so that the peripheral is placed in a known state (although not necessarily operable). 
This activity is called Hardware Initialization. Furthermore, Startup checks and clears all of the system 
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RAM which is controlled by the EDAC. Once the system RAM has been checked, data which is used by 
code composed in C (both embedded within the ROM) is relocated to RAM. This allows read/write access 
to variables referenced by C code. In order to support high-level floating point software statements, a 
floating point emulator (software-based) is used and must be set up before use by any higher-level software 
modules. Finally, a runtime environment becomes operable for the subsequent software modules, all 
composed in C, to operate normally. 



1. Hardware Initialization 

Hardware Initialization begins by programming the M80C186XL’s [Ref. 13] internal peripheral 
interface registers. These registers are grouped into a block with contiguous addresses and are by default 
referenced via an I/O reference beginning at OxOFFOO. This default reference was kept. The M80C186XL 
contains multiple Chip Selects to internalize chip select generation for ROM and RAM. After a Reset, the 
Upper Memory Chip Select (UCS) will correctly select when referencing the top-most 16 bytes of system 
memory, OxOFFFFO through OxOFFFFF. Therefore, the first initialization performed is to change the range 
of addresses that the UMCS will generate. In the case of PANSAT, where the ROM is 64 kbytes in size 
and occupying the top-most 64 kbytes of system memory, UMCS is configured to start selects at OxFOOOO 
for a block size of 64 kbytes. 



cli 

mov 


dx. 


OFFAOh 


; upper 


memory chip select 


mov 


ax. 


0F038h 


; start 


of EPROM F000 : Oh, 


out 

jmp 


dx, 

far 


ax 

ptr START 


; START 


OFOOOOh 



The bottom-most location of the 64 kbytes of system ROM is named START. At this location 
begins the remaining startup code. This code continues the programming of the peripheral interface 
registers. For memory and peripheral chip selects (LCS, MCS, PCS) the table below describes the 
configuration of these important selects. By not programming the LCS (not performing a read or write 
operation to the configuration register), this chip select remains inactive. 



Register 


Register Address 


Register Value 


Setup Description 


PACS 


0xFFA4 


0x0000 


Peripheral Chip Select base: PCS0 = 0x0000, each block is 
0x80 in length. Bus Ready must be active to complete bus 
cycle, no wait states inserted in the bus cycle. 


LMCS 


0xFFA2 


Not Applicable. 


Lower Memory Chip Select: Unused. 


MMCS 


0xFFA6 


0x4 1F8 


Mid Memory Chip Selects: 0:0 to 0x7FFF:F (512K block). 


MPCS 


0xFFA8 


0x2000 


Peripheral Chip Select: Starting at 0, PCS5/6 latch A1 & 
A2, PCSx go active for I/O bus cycles, requires bus ready 
be active to complete bus cycle (applies to PCS4-6), no 
wait states inserted for PCS4-6. 



Table 4. Memory And Peripheral Chip Selects. 
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Before hardware peripherals of the system controller are initialized, Startup also configures the 
M80C186XL TimerO, used as a system clock, and the interrupt controller to temporarily disable all 
interrupt sources. Startup then configures the hardware peripherals. The PPI configuration ensures the 
device is setup for bi-directional data exchange with the correct handshaking (discussed in more detail 
later), and places certain control lines to their correct assertion levels. The Modem Power control bit 
(active LOW) is turned off (programmed to a 1), the EDAC reset line is set on (programmed to a 1), and 
the RF enable is turned off (programmed to a 0). After the PPI, SCC configuration follows, placing the 
device in the correct modes for synchronous communication for Port A, and asynchronous communication 
for Port B. 



2. Memory Check and Clear 

During Startup, before interrupts have been enabled and before a stack has been created and 
activated, the entire RAM is briefly checked for errors and in the same process the memory cells are 
cleared, removing the possibility of later RAM accesses causing EDAC soft or hard errors. First a write 
followed by a read of the data 0x55 and OxAA is performed in the entire RAM. The purpose of this 
alternating bit pattern test is to determine if there are data bus problems, bad devices, or chip select failures. 
However, this test only tests the ability of a device to hold data, but not that the devices are being addressed 
correctly. Thus, another test is performed which writes unique data to each location and then reads back. 
The unique data will be a 257-bit repeat test, e.g. cell 0 will get the value 0, cell 1 gets 1, .... Cell 256 gets 
256 (modulo 256 = 0), cell 257 gets 257 (modulo 256 = 1). Then the pattern repeats so that cell 258 gets 0, 
cell 259 gets 1, etc. 

In the event that memory cells fail a test, the software system will attempt to map out the bad cells 
if possible. However, if errors occur in the interrupt vector table, there is no mapping solution. The 
System Controller will force itself to fail to update the EPS watchdog timer, thus shutting itself down. 

3. Data Relocation 

Since all data (constants and variables) of any C software module are embedded within the ROM 
and may at some later point be relocated to RAM, data relocation is a necessary step for proper 
configuration of the C runtime environment. True constants (never modified data references) may remain 
in ROM. However, an> variable which is not created on the C runtime stack, must be relocated and 
possibly initialized in RAM. The data relocation performed for PANSAT is based upon standard 
techniques [Ref. 34). 

As already discussed, the 80C186 hardware architecture uses the concept of segments to organize 
physical directly-addressable memory. Software also uses the word segment. Segment, in the context of 
software, can refer to a physical 64 kbytes segment of the 80C186, or also a logical grouping of data or 
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code. DGROUP is a group of like data segments particular to the Microsoft C Compiler for code 
generation of a memory reference model called the Small Model. Small Model programs are by definition 
fixed in data segment size to a physical segment size of 64 kbytes (directly related to the 80C186’s 
architecture) and fixed in code segment size to also 64 kbytes. However, the data and code segments 
occupy separate physical segments, and thus provide up to 128 kbytes of code and data. As a convenience 
to the compiler and linker, data groups are created to collect similar types of data references [Ref. 35]. 

Data relocation begins by clearing any initialized data area in the DGROUP group. Initialized 
data is any data that is a variable, not created on the runtime stack, and is given a specific value at the time 
of code composition. Thus, it is necessary that this prior, initialized, value given to this variable must be 
preserved. As all of these initialized variables are relocated to RAM, their values are preserved. 

Data relocation continues with uninitialized data area in the DGROUP group. Uninitialized data 
is any data that is a variable, not created on the runtime stack, and is given no value at the time of code 
composition. Thus, it is assumed that any prior value given to this variable is not of importance. As a 
matter of consistency, all of these uninitialized data references are relocated to RAM and forced to the 
value of zero. 



4. Floating Point Emulation 

Although the 80C186 contains hardware and software hooks to allow a companion floating point 
coprocessor, namely the 80CI87, this option was not used for various reasons. Primarily, in the style of 
attempting to make a lean system controller, floating point arithmetic is considered a luxury and 
minimizing its use is practical. Also, this coprocessor, like many floating point processors, is a heavy 
power user consuming about 50% more power than the M80C186XL alone. Furthermore, using software, 
floating point arithmetic can be emulated. This emulation occurs at a great sacrifice of CPU cycles since 
some floating point instructions can take hundreds of more CPU time when emulated. However, floating 
point arithmetic is minimized. 

The software tools used for linking and absolute address location provide a ROMable floating 
point emulation library. Within the Startup are subroutine calls to the floating point library initialization 
routines. In cooperation, the C compiler when compiling translates all floating point expressions to a series 
of calls to subroutines. 

5. C Runtime 

Prior to the transfer of control to the code of the collection of C-composed modules, appropriate 
hardware interrupts are masked on, e.g. EDAC and Timer2. Furthermore, a runtime stack is created so 
that an area of RAM is set aside for stack-related operations. The stack for the C runtime environment is 4 
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kbytes of ED AC-controlled RAM, located just after the interrupt vector table. The stack creation actually 
occurs just prior to the calling of the floating point emulation routine. Transfer of control is accomplished 
by calling the main C software module, named mainQ. If ever main() should terminate, the code following 
this call turns off interrupts (not allowing the clock and Watchdog support software to operate) and finishes 
with a HALT instruction. 



D. CPU SUPPORT 

1. Timers and Interrupts 

a. Timers 

The Timer/Counter Unit, integrated within the M80C186XL [Ref. 12], supports three (3) 
independent 16-bit counter/timers. These timer/courtfers are used .to generate a system clock implemented 
by the operating system, and other time-dependent functions. Table 5 shows the use of each timer. 



Timer 


Function 


0 


Transmitter time-out (feeds clock to Timer 1) 


1 


Transmitter time-out (gates RF Enable) 


2 


System Clock (operating system) 



Table 5. Timer Allocation. 



Cascaded, Timers 0 and 1 can provide a maximum timer of 38.84 min (each timer is 
updated every % CPU clock which is 0.542535psec, 2 16 *2 16 *0.542535psec). Timer 0 is programmed to 
run continually using PCLK as a clock and given a maximum count value of 2 16 , providing a 35.5 msec 
clock for Timer 1. Timer 1 uses Timer 0 as its input clock. Using the dual count mode as a one-shot timer, 
Timer 1 is programmed to stay low when enabled for 10 seconds using a Count A value of 1 and a Count B 
value of 28 1 . The output of Timer 0 is inverted before it is gated and passed off the System Controller 
board to the RF unit, providing an active high signal. Ten seconds is a suitable length of time to enable the 
transmitter, and yet provide an automatic turn off mechanism. 

Timer 2 is programmed to interrupt the CPU at a frequency of 60 Hz, providing a tick 
counter to implement a system clock. This timer uses a maximum count of 30720 in a continuous count 
mode. The interrupt service routine counts the interrupts to maintain a second counter. Two API functions 
provide the ability for software to read and set the second counter, based on UTC from 1 January 1970. 
Thus, when PAN SAT is reset, it begins with a date of I January 1970 until otherwise programmed by the 
NPS ground station. A 32-bit second counter allows dates until 2106. Within the clock ISR is the chaining 
to the EDAC RAM Wash subroutine which is explained in more detail later in this chapter. 
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Function Name 


Description 


get_time() 


Get UTC time in seconds (elapsed 
time in seconds since 1 Jan 1970). 


set_time() 


Set UTC time (elapsed time in 
seconds since 1 Jan 1970). 



Table 6. Clock API functions. 



b. Interrupt Priority Structure 

The Non-Maskable Interrupt (NMI) is the highest priority interrupt and will be disabled 
via hardware to prevent this event from occurring unless the Error Detection and Correction (EDAC) 
circuitry is enabled. Maskable interrupts are the most common way to service the external hardware 
interrupts. Globally, software can enable or disable the maskable interrupts. Maskable interrupts have 
priorities among themselves which are determined by the programming of the interrupt control unit and the 
support circuitry. Exceptions occur when an unusual condition prevents further instruction processing until 
the exception is cleared. Software interrupts are generated by software using the INT n instruction. The 
M80C186XL handles exceptions and software interrupts in the same way as hardware interrupts and are of 
lower priority than the maskable (hardware) interrupts. All unused (undefined) interrupt vectors are 
initialized to point to OxOFFFFO, the Reset vector, so that if an undefined interrupt occurs, the system will 
perform a reset. Table 7 shows the interrupt vector use. 
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Interrupt 

Vector 

Number 


Interrupt Function 


0 


Divide-by-zero 


1 


Single Step 


2 


NMI j 


3 


Breakpoint 


4 


Overflow 


5 


Undefined 


6 


Invalid Opcode 


7 


Escape Opcode 


8 


Timer 0 


9 


Undefined 


10 


DMAO 


11 


DMA1 


12 


INTO (SCC - 85C30) 


13 


INTI (A/D - LM12H458) 


14 


INT2 (EDAC Hard Error) 


15 


INT3 (EDAC Soft Error) 


16 


Undefined | 


17 


Undefined 


18 


Timer 1 (Transmitter time-out) 


19 


Timer 2 (SCOS clock tick generator) 


20 - 255 


Undefined 



Table 7. Interrupt Vector Allocation. 



2. EDAC (Setup and RAM Wash) 

Error Detection And Correction (EDAC) memory will cover all addressable Spacecraft Software 
system RAM and will ensure the state of memory which is within the data and code addressing range of the 
M80C186XL. The memory decoding is designed such that all of the 1/2 Megabyte of direct addressable 
memory, from 0 to 0x7FFFF, is EDAC RAM for the CPU. With the EDAC circuitry enabled, all memory 
cycles to RAM, either byte or word size, will be intercepted by the EDAC. Each write generates error 
correction patterns which are recorded as well as the data. Each read retrieves the data as well as the 
correction patterns to determine if the data read is correct, is correctable (soft error), or is not correctable 
(hard error). The EDAC will indicate these two types of error to the M80C186XL via interrupts. The soft 
error produces a maskable interrupt, INT3. The hard error produces a maskable interrupt, INT2. 

There are two errors associated with a RAM memory cycle. The first error is called a soft error 
and is completely correctable. With a soft error, the EDAC is able to reconstruct the correct bit pattern of 
the byte or word cell. The EDAC will respond to a soft error by sending the correct byte or word and then 
asserting an interrupt. The interrupt service routine (ISR) is responsible for remembering at what time the 
soft error occurred. The second error is a hard error which is not correctable. In the event of a hard error, 
the EDAC asserts another interrupt. The soft error service routine will first save the necessary registers on 
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the stack. Then a message indicating that a soft error occurred will be sent to the Event Logger. The soft 
error service routine will then restore the registers and return from interrupt service. The hard error service 
routine must assume that any RAM cell is corrupted and cannot necessarily be corrected, because the 
location cannot be determined. Therefore, this service routine will suspend all interrupts, place all the 
hardware systems into an idle or off state, and then reboot the M80C186XL by jumping to the boot vector. 

a . Initial RAM Clearing 

Upon microprocessor RESET (during startup), the EDAC Hard and Soft Interrupts are 
turned off. All RAM cells are subject to the checking and clearing process described earlier in the startup 
module. Then the EDAC Hard and Soft Interrupts must be cleared. This is accomplished by placing the 
EDAC Hard/Soft Interrupt Clear signal momentarily low (at least one bus cycle). Finally, the EDAC Hard 
and Soft Interrupts are turned on. Note that the EDAC circuitry is always operating, however software can 
ignore EDAC error signals when necessary. Initial RAM clearing can be performed as word write 
operations, reducing the time required to perform the initialization process. 

b. RAM Wash 

The process of performing a RAM wash involves a regularly scheduled software task to 
read data from RAM. However, the data does not need to be written back. The hardware design 
automatically writes back a data word that is incorrect (1 bit error, correctable). This process will cause the 
EDAC circuitry to reset the correction patterns. In the event that a RAM cell develops a bit error, it is 
desirable that a RAM cell is washed before the RAM cell develops a second bit error. If the wash occurs 
before the second bit error, the cell and the correction pattern will be updated, reflecting no errors. In the 
event that a second bit error occurs before the RAM wash, the data will not be correctable and a hard error 
will be generated. RAM wash can be performed using word write operations. The frequency of RAM 
washes must occur such that second bit errors do not occur. 

As an initial rate of washing RAM, the RAM wash software performs RAM reads on 
small blocks of continuous data and then returns control to another software routine. This is repeated over 
and over again until the entire 512 kbytes of RAM have been washed. The process then repeats. A block 
size of 256 bytes (128 16-bit words) can be washed quickly and simply using a REPS MOVSW which is 
part of the M80C1 86 instruction set. There are 4096 separate blocks of 128 bytes within the entire 512 
kbytes of RAM. A block wash cycle takes approximately 168 psec. Interrupts and DMA must be off. 

An estimation of the number of SEUs expected in RAM was performed by Oechsel 
[Ref. 21] based upon data ffom UoSAT-2, a microsatellite similar to PANSAT regarding its orbit and types 
of electronics. Conservative assumptions indicated that the number of SEUs expected is 1.0 x 10' 6 
SEUs/bit/orbit. This equates to an expected time between uncorrectable errors of 1.8 years (nearly the 
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expected lifetime of PANSAT). In particular, one assumption declares that the RAM wash will occur once 



90 minutes _ 1.3 184 sec 
4096 blocks block 

per orbit. This rate of washing appears suitable. 

This frequency of beginning a block wash is an integral number. If a wash was initiated 
every second, then the calling of the wash routine would be easy to implement into the clock ISR. This 
imposes a very small overhead when considering CPU time associated with RAM washing: 



c. Processing a Single Bit Error 

The interrupt service routine (ISR) for a single bit error consists of removing the interrupt 

1 block 168 //sec , , , „„ „„ 

=> , which corresponds to an overhead of 0.0168%. (3) 

1 sec 1 sec 

condition from the EDAC circuitry by toggling an EDAC control line via the PPI. The EDAC interrupts 
are level-sensitive. This ISR must acknowledge the interrupt by incrementing a single bit error counter and 
posting the time and date of the single bit error to the Event Logger. Because EDAC interrupts are level- 
triggered, further single-bit error interrupt requests will not be detected while software is executing the 
interrupt service routine. Single-bit errors cause a counter to be incremented, accumulating a count of total 
single-bit errors. 



d. Processing a Dual Bit Error 

To reduce the chances of system failure, the dual-bit error interrupt service routine 
should not be stored in RAM since it is susceptible to dual-bit errors. Because dual-bit errors are not 
necessarily correctable, software should not attempt to continue operating on the system that experienced 
the error. The dual-bit error interrupt service routine will place the processor into a halt condition, causing 
the watchdog timer update to fail and thus shutting down the system controller and starting up the alternate. 



E. MAIN 

The convention in a C programming environment is for the function named main() to be the first 
subroutine invoked when the C program is executed. This same convention is followed for the PANSAT 
ROM Boot software with the exception that after a microprocessor reset, the Startup software executes 
first, setting up a suitable runtime environment for the actual C program. A flow diagram of the PANSAT 
ROM Boot software mainQ routine is shown in Figure 19. 
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Figure 19. ROM Boot Loader. 

This diagram begins with a block named Setup which initiates the Interrupt Service Routines, 
represented on the left side of the diagram. Setup also initializes many variables used to control the Boot 
Loader loop. The loop calls each of the blocks shown within the loop on a continual basis. Since a multi- 
tasking operating system is not present within the ROM Boot Software, this software loop depends on each 
subroutine called to transfer control back to the main loop on a timely basis. 

The loop begins by checking telemetry (obtaining the most up-to-date sensor data possible), next 
is a check on the battery charging, followed by monitoring the RF system for receiving NPS-based 
transmissions and subsequently transmitting a response. Since this software is also used for testing and 
integration purposes before spacecraft deployment, the Serial Test Port Interface (STPI) is monitored in 
case an external computer is sending requests. Next, any incoming command either via the RF system or 
the STPI is verified and processed. In case there is an apparent hardware failure, alternate hardware 
configurations are checked and used. And, finally the watchdog timer on board the Electrical Power 
Subsystem is reset, indicating that the software is functioning and the System Controller that is currently 
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operating should remain so. The loop then repeats. In the event of successful operation of the Boot 
loading process, a secondary loader will be uploaded from NPS to the spacecraft. This secondary loader 
will then take control. The ROM Boot Loader will cease to operate. These higher-level software services 
are discussed in more detail in the following chapter. 

F. PROGRAMMABLE PERIPHERAL INTERFACE 

The Programmable Peripheral Interface (PPI) [Ref. 16] has multiple functions, interfacing with 
several spacecraft components. The primary use of the PPI is to control the Peripheral Control Bus (PCB) 
which is discussed later in this section. The PPI also serves to control the EDAC circuitry with three 
control lines, and performs the Modem mode select using two control lines. 

1. EDAC Control 

The PPI has one control line which interacts with the EDAC circuitry. This control line is used to 
acknowledge to the EDAC that either a hard error or soft error was received and the EDAC state machine 
should clear the error. Failing to clear the EDAC hard/soft error will result in the continual assertion of 
that condition. This control line can clear the errors by forcing it low and then high again, (presumably 
during the interrupt service routine); normally, this control line should remain high. 

2. Peripheral Control Bus 

The Peripheral Control Bus (PCB) provides the interconnectivity between all of the functional 
subsystem electronic components of the spacecraft. This bus identifies each peripheral with a unique 
address, transmits eight bits of data, and accomplishes this data transfer with read and write control lines. 

3. PPI Control Interface 

The active System Controller has control of a PPI by selecting the device associated with PCS1. 
This PPI is programmed to Mode 2 (strobed bi-directional bus I/O) with a value of OxCO to the control 
port. This allows control of the PCB as well as the three unused control lines for the EDAC and Modem 
mode selection controls. The configuration of the 8255 and its port assignments are shown in detail in 
Appendix D. 

4. Peripherals of the Control Bus 

The RF system and the EPS on this bus are not duplicated; all other peripherals are paired. Thus, 
there are two System Control peripherals, containing a System Controller (SCA and SCB), two Analog 
MUX (AMA and AMB), and two Mass Storage units (MSA and MSB). The least significant bit in the 
device selection chooses between one of the two ports of the device. Note the distinction of this versus the 
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sub-address bits (bits 5 and 4); these bits feed through to the selected port, as in the case of addressing a 
PPI which requires 2 address lines for the PPI registers. The table below identifies each peripheral and 
indicates the corresponding addresses. 



System Name 


System |S3 - SO) 
Address 


System 

Address 


RF System 


0000, 0001 


0 , 1 


Electrical Power System 


1000, 1001 


8,9 


System Control A 


0010, 0011 


2,3 


System Control B 


1010, 1011 


OxA, OxB 


Analog MUX A 


0100,0101 


4,5 


Analog MUX B 


1100, 1101 


OxC, OxD 


Mass Storage A 


0110,0111 


6,7 


Mass Storage B 


mo, mi 


OxE, OxF 



Table 8. Peripheral Control Bus Devices. 



5. Reading from the Control Bus 

1 . Place peripheral select and device sub-address in Port B. 

2 . Set the Read bit to Low to indicate beginning of read. 

3 . Toggle the input strobe (STB) to load the data into the input latch. 

4 . Set the Read bit back to High to indicate end of read cycle. 

5 . Read the data from Port A. 

6. Writing to the Control Bus 

l . Place data in Port A. 

2 . Place peripheral select and device sub-address in Port B. 

3 . Toggle the Write bit (High to Low to High) to force the write. 

7. Software Interface 

A software interface to allow application tasks to talk to peripherals on the Peripheral 
Control Bus requires a function to read from a peripheral, and to write to a peripheral. Reading and writing 
follow a very similar sequence of operations on the control bus. 



cl Application Programming Interface 

The low level software interface functions, available to a task, are identified below. 
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Function Name 


Description 


pcb_portc() 


Toggles Port C control bits (0, 1, and 2). 


pcb_power() 


Toggles power control bits in EPS for each subsystem. i 


pcb_init() 


Initialize the Peripheral Control Bus. 


pcb_read() 


Reads a peripheral on the control bus and returns the byte. 1 


pcb_write() 


Writes a specified byte value to the specified peripheral. 



Table 9. Low Level Peripheral Control Bus Software Interface. 



b. Timing Requirements 

Reading and writing the PCB are fundamental operations that most software modules use 
extensively. Thus, it is necessary and useful to determine the amount of time these operations cost. The 
pcb_write() function takes 180 clocks, and thus at 7.3728 MHz takes 98 psec to complete. The pcb_read() 
function takes 220 clocks, requiring 1 19 psec. The consequence of the times required are most obvious in 
the management of the Mass Storage units; this is discussed in a later section. 



G. ELECTRICAL POWER SUBSYSTEM 

The Electrical Power Subsystem (EPS) is responsible for generating the power delivered to all 
other systems within the satellite. Using the Peripheral Control Bus, the switches on the EPS can be 
toggled. The EPS contains eight ports which contain various switches to control EPS battery functions and 
to power on/off other devices on the Peripheral Control Bus. Software will keep track (via copies of the 
EPS registers) of all of the settings for all of the EPS ports. Appendix E contains many tables that describe 
the EPS ports and the switch assignments of the ports. 

1. EPS Port Organization 

Ports 0, 1,2, and 3 of the EPS are used to control the configuration of the EPS. Port 0 controls the 
batteries (charge, discharge, and on-line). Port 2 controls the power to the subsystems; this port also 
contains the current inhibit switch used while reading currents. Ports 1 and 3 control multiplexers on the 
EPS which are used to select voltage and current measurements. Port 4 is the Watchdog Timer reset 
switch. Port 5 is used to read back the direction of the current sensors (the only read port via the PCB on 
the EPS). Ports 6 and 7 are not allocated; however, Port 7 is selected when the Watchdog timer needs 
toggling (Port 4 written, and then Port 7 accessed in order for Watchdog timer to latch the update request). 
Ports 0, 1, 2, 3, and 5 are described in detail in Appendix E. 
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2. EPS Cell Voltage Multiplexing 

EPS voltage and current measurement signals are all multiplexed onto one analog signal and 
delivered to the LM 12458 A/D converter on-board the System Controller. The following section describes 
the addressing needed to perform EPS voltage and current measurement selections. 

a . Low Battery Cell Voltage Selections 

The Low Battery Cell Voltage MUX is used to select certain battery cells for voltage 
measurements associated directly with the Low Cells (0 and 1). This MUX is also used to index into the 
Medium and High Cell Voltages MUXes. To select battery cells 0A, 1 A, OB, IB for voltage 
measurements, only Port 3 needs to be used. Since Port 3 is used to index into the Medium Cell Voltage 
MUX, these control bits are zeroed when only selecting cells 0 and 1 . 

b . Medium Battery Cell Voltage Selections 

The Medium Battery Cell Voltage MUX requires manipulating the Low Cell Voltage 
MUX as well as the Medium Cell Voltage MUX. Prior to selecting the Medium Battery Cell Voltage, the 
Low Battery Cell Voltage MUX must be set correctly. Since the control of the Medium and Low Battery 
Voltage MUXes are controlled both with Port 3 of the EPS, all of the selection actions can take place in 
one write to Port 3. The four least significant bits (1 1 1 1) set up the Low Cell MUX to allow Medium Cell 
MUX selections to pass through. 

c. High Battery Cell Voltage Selections 

The High Battery Cell Voltage MUX selection method depends on the cell. Cells 5A/B, 
6A/B, and 7A/B require the following selection method. First, select the High MUX input through the 
Low Cell MUX (Port 3 = 0000 1000). Furthermore, the Current Select must be kept disabled (Port 1: bit 0 
= 0). Then, via Port 2, make a selection. Cells 8A/B and 9A/B require the following selection method. 
First, select the High MUX input through the Low Cell MUX (Port 3 = 0000 1000). Furthermore, the 
Current Select must be kept disabled (Port 1 : bit 0 = 0). 

3. EPS Cell Voltage and Current Multiplexing 

The eleven current sensors are used to read roll rate experiment currents and also the solar panel 
and battery currents. The Low Cell Voltage MUX selectors are used to index voltage measurement, as 
well as the current selectors. Prior to current selections, Port 3 should be set to allow current selections to 
be made; this is accomplished by setting Port 3 = 0000 1 100 (for roll rate), Port 3 = 0000 1010 for batteries 
and solar panel bus. Then the current selection is made. After the address selections, the Spacecraft Power 
Current Inhibit control must be disabled (i.e. enabled) by setting Port 1, Bit 0 to 1. Then, the Spacecraft 
Power Current Strobe must be strobed from high to low to high (Port 1, Bit 1). Then a reading can be 
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made. Following the A/D reading, the Spacecraft Power Current Inhibit must be set again (Port 1, Bit 0 set 
to 0). Appendix E shows the configurations needed for current measurements. 

H. SERIAL COMMUNICATIONS 
1. Modem Control 

A System Controller operates the Modem using I/O commands issued from the CPU. The 
Modem has a set of registers within the PA- 100 [Ref. 17] and a separate 8-bit latch. Furthermore, a SC has 
the ability to turn on and off the entire Modem board via the PPI control port C bit 0. Modem setup and 
control requires a set of registers within the PA- 100 to be configured in a certain sequence. Furthermore, 
feedback from the PA-1 00 is also required. In order to simplify the programming interface to control and 
monitor the Modem board, two functions exist to assist high-level layers of software. A data structure can 
be created which contains a pair of data, an address and a value associated with that address. The address 
corresponds either to a register within the PA- 100 or the 8-bit latch, and the value corresponds to the data 
to be placed at that address. Thus, tables are sent to the Modem board when a new configuration is 
desired. 



2. RF Control 

The RF unit [Ref. 36] is controlled via the PCB using one 8-bit latch. Logic within the RF unit 
along with settings made by a System Controller control the selection of a low noise amplifier (LNA), a 
high pass amplifier (HPA) and a corresponding power level, a local oscillator (LO), the power applied to 
the selected LNA and also HPA, and control of transmit and receive switches. A System Controller has 
primary and alternate components (LNA, HPA, LO) within the RF unit. The RF unit takes a System 
Controller’s preferences via PCB commands (Table 10) as well as which SC is active and enables the 
correct components. 



RF PCB 
Control Port Bit 


Control Bit Name 


Description 


7 


HPA 


0 = Selected HPA off, 1 = Selected HPA on 


6 


LNA 


0 = Selected LNA on, 1 = Selected LNA off 


5 


PI 


Power level control (most significant bit) 


4 


PO 


Power level control (least significant bit) 


3 


LHP/LHA 


0 = Primary LNA/HPA, 1 = Alternate LNA/HPA 


2 


LOP/LOA 


0 = Primary Local Oscillator, 1 = Alternate Local Oscillator 


1 


Tx/Rx 


0 = Transmit, 1 = Receive (Signal Path Relay) 


0 


T/R 


0 = Transmit, 1 = Receive (Antenna Relay) 



Table 10. RF Unit Control Port. 
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API function calls are provided for ease of programming as well as making the source code very 
explicit to understand regarding the references to the RF unit. The functions are shown in Table 11. 



Function Name 


Description 


rf_power() 


Toggles power on and off to the RF unit. 


rf_set() 


Sets a particular RF control bit via the PCB. 


rf_timer() 


Starts the Transmitter timer using Timers 0 & 1 of the CPU. 


rf_txpower() 


Sets transmit power using the 2-bit attenuator on the RF unit. 



Table 1 1. RF API function calls. 



3. SCC Drivers 

One master interrupt service routine (ISR) handles the input and output services of both Channel 
A (synchronous) and Channel B (asynchronous) of the Serial Communications Controller [Ref. 28]. 
Channel A I/O is handled with DMA, except the special conditions which cause an interrupt. However, all 
I/O for Channel B is handled within this service routine. Since the SCC has only one interrupt source into 
the CPU, all SCC interrupt conditions invoke this one ISR. All conditions are checked within this ISR and 
are handled on a priority basis. The condition checking repeats within the ISR until all SCC interrupt 
conditions have been serviced. An outline of the master SCC ISR is shown in Figure 20. 




Figure 20. SCC Interrupt Service Routine Structure. 
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a. Asynchronous Services 

A variety of software routines allow control of Channel B of the SCC, providing an easy 
yet sophisticated interface with the asynchronous communications port. The core drivers that allow input 
and output to Channel B are serial_out() and serial_in(). These functions simply insert or remove 
characters into buffers that are handled by the interrupt service routine. At a higher-level, software 
routines allow command line input and C Standard Library like printf() capabilities for complex display 
output. 



b. Synchronous Services 

Synchronous data is received and transmitted in blocks as packets. All higher-level 
software modules ultimately want to send a packet of data or receive a packet of data. Since all 
synchronous I/O is handled with the DMA between the memory and SCC, packet send and receive requests 
require an initial DMA setup, and some follow up after the transaction. Since the satellite only works in a 
half-duplex mode, assumptions regarding the state of transmit and receive are made and simplify the 
design. When not transmitting, the SC places the SCC into a receive mode with the DMA already set up to 
transfer incoming data bytes. Thus, during this time, it is not necessary to set up anything regarding the 
transmission of data. When data is required to be sent out a packet is placed into a buffer and remains 
there until the receiver is finished with packet reception. Then, the transmitter is set up, including the 
DMA. During this time, it is not necessary to set up anything regarding the reception of data. 

Synchronous services are complicated by the fact that besides the SCC, communications 
through Channel A also rely on the PA- 100 modem and the RF unit. Thus, the PA- 100 and RF unit require 
some monitoring in case there is a failure. Failure may only be due to a functional mode of the hardware 
and not circuit failure. Thus, these units may need to be reset or programmed with different parameters. 
Furthermore, extended failure may require a different hardware configuration to be chosen. 

I. TELEMETRY 

1. Scheduling of the LM12H458 

Telemetry from sensors (voltages, currents, and temperatures) is routed onto the inputs of the A/D 
converter on the System Controller, the LM12H458 [Ref. 24]. An interrupt service routine (ISR) is 
responsible for completion of data conversion, and scheduling of another acquisition under the automated 
function of the A/D converter. Since the LM12H458 can be given a program which is a sequence of data 
acquisition steps which can be run independently of the CPU, the A/D converter is programmed to make 
several acquisitions across multiple input sensors without intervention of the CPU. 
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In order to simplify the software responsible for operating the A/D converter, a schedule was 
created that indicates for any sequence in the data acquisition, which sensor signals are to be accessed and 
converted. The entire data acquisition cycle was broken up into 42 periods, numbered 0 through 41. After 
the 41 th period, all sensor data has been read and converted at least once. Since some data points need 
more frequent readings than others, certain sensors are read multiple times during the 42 periods. The 
sensors from the EPS require multiple readings per period. The CPU must store the converted values at the 
end of each Period and prepare the LM12H458 for the next Period before resuming other activities. 
Appendix F shows the schedule of A/D conversions. 

2. LM12H458 Setup and Interrupt Service Routines 

Three subroutines implement the software necessary for data acquisition. The first is an 
initialization routine which programs the LM12H458 into the desired mode, calibrates it, programs the first 
sequence of acquisition instructions, and finishes leaving the LM12H458 running independently. 

Another, the core of the acquisition, occurs within the Interrupt Service Routine for the 
LM12H458, diagrammed in Figure 21. At the end of each data acquisition Period, which can have up to 5 
converted samples or as few as one, this routine is invoked via a hardware interrupt. If necessary, current 
directions are read for the just completed acquisition. If temperature sensors are used for the following 
acquisition period, the TMUXes are programmed. Furthermore, the EPS is programmed to multiplex the 
soon to be read sensor. Finally, the LM12H458 instructions are programmed and the service routine is 
finished. After the completion of all 49 Periods, this ISR also sets a flag to notify other software tasks that 
a complete set of new data has been converted. Also, at the completion of the last Period, the LM12H458 
is instructed to complete a calibration, and thus control of the CPU is returned to other software tasks. The 
completion of the calibration causes another ISR to program the LM12H458 to begin again. 
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Main ("Pause") ISR 
for A/D (LM12H458) 






Figure 21. A/D Main ISR. 
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3. Data Gathering - Temperature Multiplexers 

All temperature signals sensed using thermistors (all temperature measurements except two 1C 
temperature probes on the System Controller and Modem boards) are multiplexed onto the Temperature 
Analog Multiplexing units (TMUX) [Ref. 37]. These signals pass through an appropriate signal 
conditioning circuit and are then available to the LM12H1458 for analog-to-digital conversion. This 
conditioned analog signal is passed to the LM12H458, on-board a System Controller. All of the TMUX 
selections are controlled using the Peripheral Control Bus. 

TMUX control is handled by four address lines and four selector lines using the Peripheral 
Control Bus. All multiplexers are fed the same address lines. However, four separate selection lines 
provide the TMUX enabling to each individual TMUX. The following table indicates the assignments of 
the bits that describe the TMUX configuration. 



Bits 


Function 


7 


Unused 


6 


Unused 


5 


MUX 1 Select (subaddress) Channels 16-31 


4 


MUX 0 Select (subaddress) Channels 0-15 


3-0 


MUX Address (applies to each MUX) 



Table 12. TMUX Control. 



Temperature sensors are named TSx, where x is a number beginning with 0. Temperature sensors 
which deliver a signal to TMUXA are even numbers (including the beginning 0), and temperature sensors 
to TMUXB are odd numbers. Furthermore, all sensors are redundant, for every sensor providing a signal 
to TMUXA, another sensor exists to provide the same sensor location to TMUXB. The number system is 
such that if x is a sensor for TMUXA, x + I is the redundant sensor for TMUXB. 

4. Data Conversion 

Data conversion for voltages, currents, and temperatures are explained in this section. Note that N 
is an unsigned value from the A/D converter. And where appropriate, SIGN is either +1 or -1 and 
determined from reading the current direction sensor. 

a. Battery Current Conversion 

The current going into (positive) or leaving (negative) a battery is determined using 

Equation 4. 



I = 2 *SIGN * 





SIGN *(N *0.002442-5) 



( 4 ) 



57 



b. Spacecraft Bus Current Conversion 

The calculation of the spacecraft bus current is identical to the conversion of the battery 
current except that there is no direction, and thus the use of SIGN is eliminated, Equation 5. 



I = 




N* 0.002442-5 



( 5 ) 



c. Battery Voltage Conversions 

Battery voltage measurements are accumulated voltage readings across cells in series. 
Starting with cell 0 as the first cell in series, each successive cell has a voltage measurement across the 
entire series, and not the individual cell. Accumulated Cell Voltages require a conversion weight, W 
(Table 13), which depends on the cell. 



Cell 


Battery A 


Battery B 


0 


1.0 


1.0 


1 


1.0 


1.0 


2 


1.6953 


1.6969 


3 


1.6997 


1.7015 


4 


1.7014 


1.7029 | 


5 


2.4267 


2.4283 


6 


2.4262 


2.4314 


7 


2.4311 


2.4317 


8 


4.9 


4.93 




Factor (W) 


Factor (W) 



Table 13. Battery Voltage Conversions. 



First, the accumulated cell voltages are converted (Equation 6). These accumulated cell 
voltages are the steps of voltages measured across the entire cell series, starting with cell 0 as the base cell 
with direct reference to ground. 



V a = jV * [ *W = 0.001221 *N*fV (6) 

0 V4095/ 

Next, each individual cell voltage can be calculated by subtracting the cell’s accumulated 
voltage from the cell previous to it, with exception of the first cell, cell 0. This is shown in Equation 7. 



V(i) = V a (i)-K(i-l), 1^8 

F(0) =VJQ) 
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d. Thermistors 

An Omega 440048 thermistor’s [Ref. 38, p. D-4] temperature value is converted using a 
table lookup. This is because the conversion is based upon the mathematically intensive Equation 8. The 
table lookup performs a binary search where there are a maximum of seven compares needed for a lookup. 
The table is used by taking the value from the A/D converter and finding the closest match in the table. 
The position of the match in the table indicates the temperature of the sensor. Appendix G contains a 
complete discussion of the conversion process. 



1 

^ + 5*ln(/?) + C*[ln( J R)] 3 



273.15 




where R is the resistance of the thermistor, 

V is the voltage sensed across the thermistor, 

and Iq is the Calibration Current A, B, and C are coefficients 

choosen to best fit temperature values in the range from - 0° C to 30° C. 

A = 9.306xl0' 4 ,B = 2.218x10" 4 ,C = 1.253xlo" 7 . 



( 8 ) 



e. Temperature Sensors (ICs) 

Conversion of the IC temperature sensors is straight-forward as shown by the 
relationship expressed in Equation 9. 



T = (N- 0.5) *100 (9) 

5. Data Recording 

At regular intervals, preset to every minute but modifiable by command from the ground station, 
all of the sensor data and various software statistics are saved to the mass storage devices. The purpose of 
recording this data is two-fold. First, the system software uses this recorded data to make decisions, in 
particular when the satellite has a power reset, or a System Controller is turned off and its alternate turned 
on. When powered on, a System Controller attempts to find previously saved data in the mass storage 
which will describe the prior state of the satellite. In the case of the first time the satellite operates (i.e. 
after launch), the mass storage is completely initialized. The Battery Charge Monitor (discussed in the next 
chapter) relies on this recorded data to make intelligent decisions regarding the state of the batteries if 



59 



possible. The data is recorded so that it is accessible to the ground station for detailed analysis. An 
overview of the telemetry record contents is shown below in Table 14. A detailed description of the 
telemetry record is found in Appendix J, documented in the software source code. 



Item 


Quantity 


Description 


Time/Date 


1 


Spacecraft time and date recorded in number of ticks (60 Hz). 


Temperatures 


37 


Temperatures of modules, batteries, and solar panels. 


Voltages 


19 


Voltages of battery cells and spacecraft bus. 


Currents 


11 


Currents of batteries, spacecraft bus, solar panels. 


Hardware Configuration 


37 


Subsystem port settings. 


BCM 


24 


Battery Control Monitor parameters. 


EDAC Errors 


1 


Number of EDAC soft errors. 


SU Fails 


1 


Number of superuser access attemps that failed. 



Table 14. Telemetry Record Contents. 



J. MASS STORAGE INTERFACE 

A mass storage unit (MSU) provides four megabytes of Static RAM (SRAM) to serve as file 
storage for the Spacecraft Software. This unit is intended to save user messages (mailbox storage) and 
archived telemetry. In addition, half a megabyte of Flash storage is available for duplicating telemetry. 

1. Hardware Interface Via the PCB 

The MSU is a data storage device of both volatile and non-volatile solid state memory devices. 
The data address to be accessed is presented and the appropriate control (read or write) is indicated. Four 
and a half megabytes of random access storage are incorporated within the Mass Storage Unit. The 
Peripheral Control Bus is used to interface the Mass Storage Unit and the System Controller. A PPI is 
located at base address of the Mass Storage PCB address (see Table 15). Twenty-two bits of the PPI are 
used to latch an address. There is one read signal and one write signal, and one additional signal used to 
indicate if SRAM or Flash is to be accessed. Table 16 indicates addressing and control usage within the 
PPI. 
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PCB 

S3-S0 


PCB 

A1-A0 


Usage for Mass Storage Units 






Mass Storage A 


6 


0 


PPI Port A 


6 


1 


PPI Port B 


6 


2 


PPI Port C 


6 


3 


PPI Control Register 


7 


0 


Data (read and write) 






Mass Storage B 


E 


0 


PPI Port A 


E 


1 


PPI Port B 


E 


2 


PPI Port C 


E 


3 


PPI Control Register 


F 


0 


Data (read and write) 



Table 15. Mass Storage Unit: PCB Interface. 



PPI Port 


Bits Used 


Usage for Addressing or Control 


Port A 


D0-D7 


Memory Addresses (AO - A7) 


Port B 


D0-D7 


Memory Addresses (A8 - A15) 


Port C 


D0-D5 


Memory Addresses (A 16 - A21) 


Port C 


D6 


Select: 1 = Flash, 0 = SRAM 


Port C 


D7 


Unused 



Table 16. Mass Storage Unit: PPI Interface. 



For initialization, the PPI should be programmed as an output only device (Ports A, B, and C all 
8-bit outputs); this is accomplished by writing a 0x80 to the PPI Control register. Port C controls both the 
selection of either the Flash or the SRAM devices and the most-significant address bits of both device 
types. Since selected Flash devices draw less current than selected SRAM devices it is best to select the 
Flash devices when a Mass Storage board is powered on (but not being read or written to). Furthermore, 
A18 and A 19 select only high address bits of the SRAM; selecting a Flash device in this address range 
causes a non-existent Flash device to be selected, drawing even less power. Therefore, a powered-on Mass 
Storage board, w hen not performing reading or writing, should have its Port C set to 0x48. 

2. Software Interface 

Device driver software allows the functions of formatting (clearing memory in preparation of 
writing data), w riting to, and reading from the Mass Storage units. Although the entire memory space of 
one mass storage can be addressed as a continuous address space, due to logical use of the memory, the 
memory space is visualized and thus segmented into two memory types: the volatile 4 Mbyte SRAM, and 
the non-volatile !/ 2 Mbyte Flash. 
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a . Reading and Writing Requirements 

Reading from either type of memory is straight-forward. An address is programmed into 
the PPI on the Mass Storage board, and then a PCB read retrieves the value of the cell pointed to. Writing 
to the SRAM is similar to reading, except a PCB write is issued. However, writing (and erasing) the Flash 
involves writing specific address and data sequences into the command register of the Flash device 
[Ref. 39] defines these register command sequences which allow writing, erasing, and checking 
manufacturer and device type codes. 



Command 

Sequence 


First 

Bus Write 


Second 
Bus Write 


Third 
Bus Write 


Fourth 
Bus Write 


* Fifth 
Bus Write 


Sixth 
Bus Write 


All values 
are in Hex . 


Addr 


Data 


Addr 


Data 


Addr 


Data 


Addr 


Data 


Addr Data 


Addr Data 


Read/Reset 


5555 


AA 


2AAA 


55 


5555 


F0 


RA 


RD 


RA = Read Address, RD = Read Data 


Scan 


5555 


AA 


2AAA 


55 


5555 


90 


0/1 


Code 




Write 


5555 


AA 


2AAA 


55 


5555 


AO 


WA 


WD 


WA — Write Address, WD = Write 
Data 


Erase 


5555 


AA 


2AAA 


55 


5555 


80 


5555 


AA 


2AAA 55 5555 10 



Table 17. Mass Storage Unit: Flash Commands. 



b. API Functions 

API function calls for each memory type are provided for ease of programming as well 
as making the source code very explicit to understand regarding the references to the Mass Storage 
memories. These functions are shown in Table 18. For redundancy purposes, the ROM Boot Loader 
software writes all recorded data to each Mass Storage unit and to both memory types. Thus, the data can 
be quadruplicated. All records of data written to a Mass Storage device use a Cyclic Redundancy Check 
(CRC) [Ref. 40] for read-back verification. The CCITT CRC-16 will detect all single-bit, dual-bit, odd 
numbered, and bursts of fewer than 17 bits wide types of errors. Detection of other errors is about 
99.997%. This is the same CRC algorithm as used within the SCC except that the seed CRC is 0 (instead 
of OxFFFF). 



Function Name 


Description 


msu_erase_flash() 


Erase entire Flash (sets cells to OxFF). 


msu_read_flash() 


Read specified number of bytes from a specified address in Flash. j 


msu_write_flash() 


Write a specified number of bytes from a specified address in Flash. 


msu_scan_flash() 


Scan Flash devices for manufacturer and device type codes. 


msa_set_addr() 


Set the mass storage address pointer to a specified location. 


m suerasesram () 


Erase entire SRAM (sets cells to OxFF). 


msu_read_sram() 


Read specified number of bytes from a specified address in SRAM. 


msu_write_sram() 


Write a specified number of bytes from a specified address in SRAM. 



Table 18. Mass Storage Unit: API Functions. 
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c. Timing Requirements 

Reading and writing to a Mass Storage unit takes a considerable amount of time 
especially writing to the Flash memories. Therefore, it is critical that the amount of time required to 
accomplish such operations is determined and taken into consideration when designing and writing the 
device drivers as well as the high-level code that uses the Mass Storage. In general, reading and writing to 
the SRAM, and reading from the Flash take a similar amount of time. However, writing to Flash is nearly 
eight times slower. Since data may be read and written in blocks, a general formula was determined which 
gives a per byte time requirement. Reading and writing data in blocks is preferred (rather than single byte 
function calls) because the overhead of multiple function calls is reduced, and address incrementing 
techniques can be exploited (e.g. only updating the address digits that change). Table 19 shows the formula 
and the transfer time for 256 byte blocks. 



Function Name 


Clock Cycles Required Per Byte 


Time (n =256 ) 


msureadflashO 


Clocks = 1210 + n*(862) + (n-l)*(31) + 40 


31 msec 


msu_write_flash() 


Clocks = 320 + n*(7668) 


266 msec 


msu_read_sram() 


Clocks = 1207 + n*(862) + (n-l)*(3 1) + 40 


31 msec 


msu_write_sram() 


Clocks = 1 207 + n* (834) + (n- 1 )*(3 1 ) + 40 


30 msec 



Table 19. Mass Storage Unit: Timing Of Operations. 



This concludes the presentation of the System Controller software device drivers. These 
drivers are necessary to provide simple and direct control of the hardware peripherals (electronics of the 
System Controller as well as the electronic modules of the spacecraft). However, the goal of the software 
developed for PANSAT is to provide a system which orchestrates all of the hardware of the spacecraft. 
This software is referred to as the System Controller high-level software and is presented in the next 
chapter. 
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VI. SYSTEM CONTROLLER HIGH-LEVEL SOFTWARE 



A. DESCRIPTION 

Upon completion of the hardware initialization and the creation of a runtime environment suitable 
for higher-level layers of software, software progresses to the central loop contained in the module main.c. 
Operation then consists of monitoring and charging the batteries while establishing primitive 
communication with the PANSAT Ground Station at NPS to begin the upload of the Kernel and the PHT 
loader. Thereafter, a higher level protocol will upload BAX, the primitive Telemetry collector, and an 
AX.25-aware loader. Then, using AX.25, the FTLO protocol, the File System, and Bulletin Board services 
software are uploaded. Finally, the spacecraft is ready for general use. 



B. SERIAL COMMUNICATIONS - Serial Test Port Interface 

The Serial Test Port Interface (STPI) is an asynchronous serial communication interface that 
exchanges messages between the System Controller and an external computer acting as a Data Terminal 
Equipment (DTE). The DTE is a dumb-terminal which is capable of sending data and displaying messages 
sent from the SC. A large set of commands is implemented to operate and test the spacecraft via the STPI. 
The command menu is shown below in Table 20. Responses from the commands (sent by the SC) vary 
depending on the command; however, all responses print out as readable messages on the terminal. 
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Command 


Description 


Param. 0 


Param. 

1 


Param. 

2 


Param. 

3 


Param. 

4 


in 


Input byte 


port-16 










inw 


Input word 


port-16 










out 


Output byte 


port- 16 


data-8 








outw 


Output word 


port-16 


data-16 








peek 


Read byte 


segment-6 


offset-16 








peekw 


Read word 


segment-16 


offset- 16 








poke 


Write byte 


segment-16 


offset- 16 


data-8 






pokew 


Write word 


segment-16 


offset- 16 


data-16 






dump 


Dump paragraph 


segment-16 


offset- 16 






















pcbr 


PCB read 


select 


subaddr 








pcbw 


PCB write 


select 


subaddr 


data-8 




















ad 


A/D ISR control 


on/off 










tlm 


Get recent telemetry 


























time: g 


Get time 












time: s 


Set time 


date-time 
























bcm: p 


BCM: on/off 


on/off 










bcm: c 


BCM: configure 


config data... 










bcm: s 


BCM: status 


























eps:p 


EPS: power control 


device 


on/off 








eps:b 


EPS: battery control 


battery 


switch 


on/off 






eps:v 


EPS: read voltage 


select 


cell# 








eps:i 


EPS: read current 


select 


sp # 






















msu:p 


MSU: power 


device 


on/off 








msu:e 


MSU: erase flash 


device 


sector# 








msu:r 


MSU: read 


device 


type 


address 


length 




msu:w 


MSU: write 


device « 


type 


address 


length 


data.... 
















tmux: p 


TMUX: power 


device 


on/off 








tmux: r 


TMUX: read 


device 


channel # 






















modem:p 


Modem: power 


on/off 










modem:m 


Modem: mode 


clear/spread/test 










moderns 


Modem: read status 












modem:w 


Modem: write 


data... 
























rf:p 


RF: power control 


on/off 










rf:c 


RF: configure 


config data... 
























see: i 


SCC: initialize 












sec: r 


SCC: read register 


register 










sec: w 


SCC: write register 


register 


data-8 








sec: h 


SCC: hunt 












sec: rx 


SCC: Receive 












sec: tx 


SCC: Transmit 


length 


data... 









Table 20. STPI Commands. 
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C. BATTERY CHARGE MONITOR 

Two battery packs are within the spacecraft [Ref. 41]. Each battery pack consists of nine nickel- 
cadmium cells with a standard capacity of approximately 4.4 AmpHours. The batteries are for eclipse 
power and power regulation and conditioning circuitry while in sun-soak. The power system must be able 
to switch from external solar power to internal battery power without major power spikes or fluctuations. 
The EPS relies on the System Controller to activate switches and to determine charge levels of the 
batteries. Both batteries will be depleted beyond the capability of operation at launch due to the storage 
time between integration and ejection from the Shuttle. A trickle charge circuit provides battery charging 
at the beginning-of-life while the spacecraft operates in the sunlight. This will allow a low power mode of 
operation during eclipse in the very early stage of the mission until the batteries are sufficiently charged. 
During spacecraft operation the battery control algorithm will use temperature, current, and voltage 
measurements to determine the state-of-health of the two batteries. The state-of-health determines which 
battery is on line (providing buffered power to the spacecraft bus during a sun-soak and full power while in 
eclipse), and which battery is being charged. 

The battery charge monitor (BCM) is an algorithm that controls the charge and discharge cycles 
of both batteries. It controls and monitors the charge and discharge cycles using overcharge times, cell 
temperature profiles, cell voltages and charge/discharge currents. Depending on the battery status, a Target 
battery is selected to be charged. Also, once the satellite is launched into space, the power provided from 
the solar panels must be distributed and regulated. While the satellite is in eclipse, power from the batteries 
is necessary to keep PANSAT operational. The battery has to provide additional power during sunlight in 
the event that the solar panel output is insufficient, such as during transmission. The Online battery 
provides this power. Furthermore, the algorithm indicates the available power for operations, depending 
on the charge state of the batteries: low, stand-by, or normal power operation modes. According to the 
mode, certain subsystems will be turned off to guarantee operation. 

The BCM also checks for corrupt data which is stored to review the charge state history of the 
batteries. When such an error occurs, the algorithm will set the satellite to a default condition and restart 
the battery charging based on measurements only, beginning new charge state history data. The algorithm 
also detects either sunlight or eclipse. This is necessary to activate certain switch configurations to allow 
continuous operation when the satellite is going through a transition from sunlight to eclipse or vice versa. 

1. BCM Top Level 

The BCM is essentially a large series of questions which are asked on a continual and frequent 
basis. The questions consider recent measurements (temperature, current, and voltage) of the batteries, past 
measurements, and whether or not the spacecraft is in eclipse. This series of questions determines how the 
switches within the EPS are turned on and off in order to maintain correct and efficient use of the batteries. 
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These switches control which battery is on line, charging (trickle and normal), and discharging. A top- 
down view of the algorithm is shown, starting with the main structure shown in Figure 22. 



Battery Control Monitor 




Figure 22. Battery Control Algorithm Top Level. 
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A handful of variables describe the state of the BCM, such as Capacity, Count, Online, Target, 
Mode, and cell voltage maximums. Capacity indicates how much charge is presently in a battery and is 
expressed in AmpHours. The default Capacity for each battery is 0 AmpHours (empty). Count indicates 
how many times a battery has been recharged as opposed to overcharge (discussed later). Initially, a value 
of -2 (UNKNOWN) is assigned which means the battery needs immediate overcharging. Target indicates 
which battery is currently being charged. To begin, the Target is None (neither battery since it must be 
decided). Mode depends on the charge state of the batteries. Initially, Mode is Low (meaning satellite 
operations should consume the least amount of power), and progresses to Standby, and Normal. Cell 
Voltage maximums keep track of the highest voltage each cell in a battery reaches during a charge cycle 
(while it is the Target). 

Other useful parameters are depth of discharge (DOD), temperature references, an overcharge 
voltage threshold, and timers. A previously charged battery which is online and losing charge capacity 
reaches its depth of discharge (DOD) when it has 60% of its full capacity. This is a condition that should 
trigger the battery to no longer be used for discharging and to begin a new charge cycle as soon as possible. 
Temperature references note the temperature of batteries when a battery is first placed on line or started 
charging. Such temperature references are used to monitor rapid temperature increases which can signify a 
battery reaching overcharge; thus, this is a safety mechanism. An overcharge voltage threshold is a voltage 
that is temperature dependent and indicates when a battery is approaching an overcharge condition. This 
condition triggers the starting of timers which further monitor the amount of charge a target battery 
receives before completing a charge cycle. 

2. Battery Use Eligibility and Preference 

As a necessary requirement for a battery to be eligible to be Online or the Target, the conditions of 
the batteries are examined as shown in Figure 23. There are three topics of interest which can persuade 
whether or not a battery is suitable for use. First, if a battery is already being charged (is the Target) and it 
has a cell voltage below 0.9 V, then that battery should not be used. It should be considered defective. 
Second (and this applies potentially to both batteries), if a battery is not currently being charged and has 
already been charged then its cells must have a minimum cell voltage of 1.1 V. Otherwise, that battery 
should not be used. It should be considered defective. If both batteries are still eligible for operation, then 
the temperatures of the batteries are examined (Table 21); that is, both batteries are still eligible for use. If 
the temperatures (an average temperature of all cells) of both batteries are between 0°C and 35°C, then 
both batteries are eligible for use and there is no preference. Any preference given will be a function of the 
charge state of the batteries (discussed later). However, if the temperatures are out of the range just 
described, then one of the batteries will be preferred over the other. 
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Figure 23. Battery Preference. 
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Search begins by using lowest temperatures in this table and working towards higher temperatures. 

Battery A 



Battery B 





<-10 


<= 0 


<35 


<=45 


>45 


<-10 


Use Warmer A 


A 


A 


B 


<= 0 


B 


Use Warmer A 


B 


B 


<35 


B 


B 


No Preference B 


B 


<=45 


B 


A 


A 


Use Cooler 


B 


>45 


A 


A 


A 


A 


Use Cooler 



Table 21 . Battery Preference Based On Temperatures. 



3. Determine Online Battery 

In order to determine which of the batteries should be online, many questions are answered 
(Figure 24). First, a battery preference (as described above) is considered. If no such preference exists, 
then the following is considered. If there is not already an online battery then the battery with the most 
capacity (stored charge) is chosen. Otherwise, if a battery is already designated as online, it remains online 
as long as its voltage has not dropped below a voltage threshold of 1.1 V and its capacity is above its DOD. 
If the capacity of the online battery is below its DOD and if the other battery is not being charged, then the 
other battery becomes the online battery allowing the depleted battery to begin a new charge cycle. 
However, if the online battery must remain online because the other battery is being charged (disrupting 
charge cycles is not preferred) then this condition is flagged and power consumption within the spacecraft 
must be reduced. 
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Figure 24. Battery Online. 
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4. Determine Target Battery 

During the next portion of questioning (Figure 25), if applicable, a battery is chosen to become the 
Target and will begin being charged. Again battery preferences take precedence in the decision as to 
which battery should be the Target. If no such preference exists, and there is not already a Target, then the 
battery that is below its depth of discharge (DOD) is chosen. If both batteries are below their DODs, then 
the battery that has the lowest capacity is chosen. Otherwise, if both batteries are charged above their 
DOD, then no battery becomes the Target. The possibility of no battery being the Target at first seems 
inappropriate. However, the batteries will have the longest life if they are only charged after sufficiently 
being discharged, i.e. reaching an appropriate depth of discharge. 
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Figure 25. Determine Target Battery. 
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5. Charging Methods 

Figure 26 shows the charging overview questions which occur prior to attempting to charge a 
battery. First, the satellite must not be in eclipse in order to allow charging. Also, there must be a Target. 
Finally, if charging is appropriate, one of two methods are used, depending on the charge state of the 
Target battery. The two methods are overcharge and recharge. 



Charge Battery 




Figure 26. Battery Charge. 



a. Overcharge 

A Target battery is charged using the overcharge method when its charge state is 
unknown or it has already been recharged a maximum allowable number of times. The overcharge 
method, shown in Figure 27, keeps the Target charged until a voltage threshold has been reached. This 
voltage threshold depends on the temperature of the battery. Once this threshold has been reached, a timer 
is set. Typical overcharging of a battery is based on a time which depends on the allowable power mode of 
the spacecraft (Low, Standby, and Normal). By charging a set amount of time, a battery can be guaranteed 
to reach beyond its 100% capacity (regarding the amount of charge placed into the battery); and thus, at the 
completion of this overcharge the battery can be considered 100% full, containing 100% of its capacity. 
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Overcharge 




Figure 27. Battery Overcharge. 



b. Recharge 

A Target battery is charged using the recharge method when its charge state is known 
and it has not been recharged a maximum allowable number of times. The recharge method, shown in 
Figure 28, keeps the Target charged until its full capacity has been reached. This is performed using 
current integration in order to monitor the amount of current that enters the battery. 
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Battery Recharge 




Figure 28. Battery Recharge. 



6. Battery Mode 

The operational mode of PANSAT depends on the charge state of the batteries which is 
maintained by the BCM. The operational mode indicates how much known stored energy is in the 
batteries at any time, and thus dictates how much power should be consumed by spacecraft operations. 
Figure 29 shows the decisions made to determine the mode. 



Determine Battery Mode 




Figure 29. Battery Mode. 
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D. GROUND STATION COMMAND INTERFACE 



After deployment, PANSAT only accepts requests received by RF transmissions. The ROM Boot 
Loader understands a very limited set of commands. The goal of the Boot Loader is to load the secondary 
loader while maintaining the spacecraft subsystems (in particular the batteries) in the most simple manner 
possible. Commands are sent from the NPS ground station as packets of data which are requests to the 
satellite to perform some action. The satellite responds to all commands with an acknowledgement packet 
which may contain extra information depending on the command sent. Table 22 shows the commands 
accepted during this initial stage of operation. The command encoding was designed so that each 
command has 4 bit differences between any other command. Even though the packets are CRC encoded in 
order to determine if there are bit errors, it is easy to also apply an encoding mechanism onto the 
commands to provide further error prevention. 



Command 


Encoding 


Description 


Confirm 


0x55 


Confirm a control command. 


Control 


0x5A 


Request satellite to perform a particular operation. 


Execute 


0xA5 


Transfer control to uploaded software (secondary loader). 


Get Parameters 


OxAA 


Get parameters of A/D, BCM, hardware scenarios, RAM 
wash, time. 


Load 


0x66 


Load a block of data into a specific area of RAM. 


Map 


0x69 


Send Address/Data Map for future Load commands. 


Reset 


0x96 


Stop the System Controller, forcing alternate to Reset. 


Set Parameters 


0x99 


Set parameters of A/D, BCM, hardware scenarios, RAM 
wash, time. 


Status 


0x00 


Send state-of-health (SOH) information. 


Status Log Clear 


OxOF 




Status Log Read 


OxFO 


Send recorded SOH. 


Verify 


OxFF 


Verify a block of memory in RAM. 


Unknown 


? 


Command received but is corrupt. 



Table 22. ROM Boot Loader Commands. 



1. Command Packet Protocol 

The data field within a command packet is limited to 262 bytes of data, regardless of the 
command. This odd number was chosen to allow a paragraph aligned, 256 byte block of data to be sent 
with the Load command to upload code and data images. The bytes in the data field are numbered 0 
through 261. The data field format depends on the command. 



Byte|0J 


Byte(l| - Byte[261] 


Command 


Data (relating to the command) 



Table 23. Command Packet Data Field. 
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2. Commands 



a. Confirm 

The Confirm command is in response to the spacecraft receiving a command that 
requires confirmation, in which the spacecraft then sends an acknowledgment that requires confirmation. 

b. Control 

The Control command contains another command within the request packet that specifies 
some action the satellite should perform and return any data (or at least an acknowledge of having 
completed the action) back to the ground station. Permissible commands are shown in Table 20. 

c. Execute 

The Execute command also contains an absolute memory address which is an instruction 
pointer which contains the address of uploaded software in which transfer of control will be given. The 
spacecraft will send an acknowledgement before it executes , requiring the confirm command to be sent 
from the ground station. 

d. Get Parameters 

This command requests the spacecraft to send down all the parameters that describe and 
regulate the activities of the autonomous control algorithms, e.g. RF, Modem configuration, A/D gather 
and record rates, RAM wash rate, and Battery Control Monitor configuration. 

e . Load 

The Load command contains an address followed by a block of data. The address is the 
beginning address where the data should be stored. Thus, the first data byte will be stored at the address, 
the next data byte will be stored at the next larger address, etc. This command allows an arbitrary memory 
image to be transferred from the NPS ground station to PANSAT. Normally, this command is used to 
upload an image of the secondary loader which will take over the work of the Boot Loader. 

The Load command uploads data pages which are up to 256 bytes in size. The absolute 
address at which the data is to be loaded is given. Upon successfully receiving a page without errors and 
storing the page into RAM without errors, the page address is recorded in a list. This list of successful 
loads is used later when verify commands are given. 

f Map 

The Map command is used prior to a sequence of Load commands in order to let the 
spacecraft know about the number, location, and size of data blocks. All Map commands are 
acknowledged by PANSAT immediately following successful reception. If a negative acknowledgement is 
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sent (or if no acknowledgement is sent), the Map command needs repeating. Multiple Map commands 
may be necessary if a large number of Loads follow. 

g. Reset 

The Reset command forces the System Controller to enter a halt state. This will cause 
the SC to fail to update the watchdog timer and thereby causing it to be powered down by the EPS. This 
command causes the spacecraft to first send an acknowledgement of receiving the command; the confirm 
command must then be sent to perform the reset. 

h. Set Parameters 

This command indicates to the spacecraft that there are new parameters to set within the 
spacecraft which affect the activities of the autonomous control algorithms, e.g. RF, Modem configuration, 
A/D gather and record rates, RAM wash rate, and Battery Control Monitor configuration. This command 
causes the spacecraft to first send an acknowledgement of receiving the command; the confirm command 
must then be sent to perform the parameter setting. 

L Status 

The Status command requests the satellite to send a complete state-of-health packet back 
to NPS. This information contains sensor data acquired by the A/D acquisition system as well as various 
software variables and parameters which describe the operational mode of PANSAT. 

j. Status Log Clear 

This command requests the spacecraft to clear all of the recorded status records on the 
mass storage. This command causes the spacecraft to first send an acknowledgement of receiving the 
command; the confirm command must then be sent to perform the clearing of records. 

k. Status Log Read 

This command tells the spacecraft to send down all of the recorded status records that 
have been saved to the mass storage. 

/. Verify 

The Verify command is accompanied by an absolute memory address, which specifies a 
block of data as used in the load command. Upon receipt of this command, PANSAT will check its list of 
receive data blocks from earlier Map and Load commands. A response is returned, in the form of a data 
block starting address, indicating which data blocks failed and need repeat transmission. 
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nu Unknown 

In the event that the spacecraft actually receives an incoming packet in the form of a 
command but is unable to make exact sense of the command, this response is sent back to the NPS ground 
station, explaining that no action occurred. 

3. Loading Sequence 

The loading of blocks of data from the ground station to the spacecraft is a complex sequence of 
operations, which is best viewed from a diagram. The sequence, Figure 30, is from the point of view of the 
ground station, sending blocks of data to the spacecraft. To begin, maps are built that describe all of the 
data blocks to be sent up; then the maps are sent using the Map command. Each Map command is 
acknowledged by the spacecraft before the next one is sent. Next, the blocks are prepared and, using the 
Load command, each block is sent up without any acknowledgement from the spacecraft. Finally, 
verifications are prepared. For each Verify command sent, the spacecraft is to send down an immediate 
response. The response may be in the form of multiple packets (if there were many Load errors). 

Following this response from the spacecraft, for each Load error identified, the block is prepared and resent 
to the spacecraft. The verification process is complete when the spacecraft returns a response indicating 
that there are no known Load errors. 



Upload Sequence (Ground station point of view). 
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E. SCENARIO CHECKS 



On a regular basis during the execution of the Boot Loader, hardware and software sensors are 
used to determine whether or not various hardware subsystems of PANS AT are functioning correctly. 
Many of these checks are directly related to the communication systems. Since a lack of communication 
from NPS most likely indicates that hardware on board the satellite is not functioning correctly or is not in 
the mode presumed, symptoms that show this type of behavior are monitored. In the event that such a 
symptom is found, the spacecraft either programs the hardware to another configuration or uses an entirely 
different piece of hardware. Figure 31 shows a flow diagram indicating the various symptoms which are 
monitored and the type of cure used. 



Check Hardware Scenarios. 




Figure 3 1 . Scenario Check. 
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VII. RESULTS, RECOMMENDATIONS, AND 

CONCLUSION 



A. RESULTS 

1. Printed Circuit Board 

The System Controller described in this thesis was fabricated on a printed circuit board. The 
layout of the board was performed by David Rigmaiden of the Space Systems Academic Group with the 
assistance of the author and the schematics generated with this document. Accel Technology’s 
P-CAD/Tango software was used as the layout tool. The result is a six layer board suitable for space flight. 
Details of the layout and board manufacturing are beyond the scope of this document. 

The printed circuit board was component stuffed by Rigmaiden and was tested by the author. 

The testing involved the verification of each circuit element on the PCB. Appropriate voltage levels were 
measured and were in accordance with expected values. Higher-level testing was accomplished by means 
of software control and reading back of data if possible. Various voltage meters, oscilliscopes, and an in- 
circuit emulator (ICE) connected to a general purpose computer were used to determine that the system 
was operating properly. 

2. Use of In-Circuit Emulator 

The Microtek MICE-III ICE was used to emulate the M80C186XL during initial tests. The 
microprocessor was removed from the printed circuit board, and the in-circuit emulator connected to the 
CPU’s socket. This setup is shown in Figure 32. The emulator provided a means to run a program in 
emulation RAM and emulation ROM; later, the actual RAM and ROM were tested by placing these 
components onto the actual printed circuit board. The emulator allows rapid modification of the test 
programs-without the requirement to re-program the system EPROM. The emulator also provides an 
interface that allows single stepping through test programs at the machine level or at a higher level (e.g. C 
program statements). Furthermore, sophisticated breakpoints based on hardware or software conditions are 
programmable. 
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Figure 32. In-Circuit Emulator. 



The emulator exhibited unusual behavior during testing with programmed ROMs. The emulator 
was unable to drive the memory system with correct voltage levels; and thus, the ROMs on the printed 
circuit board were not correctly stimulated and did not operate. This was of little consequence to 
development however, since ROMs are needed only after significant testing and development has occurred. 
This unusual behavior is attributed to the various families of interface logic that differ between the ICE and 
the board. 



3. Software 

Device drivers were used to test the hardware peripherals of the System Controller as well as the 
electronics of the satellite subsystems. Device drivers were tested first individually while observing that 
the hardware was driven as desired. Next, device drivers were tested while operating together as multiple 
interrrupt service routines while noting that the hardware was driven as desired. Higher-level software 
routines were tested using the same methods as described for the device drivers. However, higher-level 
software tests ran autonomously, logging data to a general purpose computer which could be examined 
during and after the tests to ensure correctness of operation. 
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4. Testing 

Tests were performed on the fabricated System Controller to evaluate the operation of the 
hardware as well as verify the software that runs on the hardware. The results were all positive. Appendix 
K lists the tests performed during different stages of the System Controller construction. 

B. RECOMMENDATIONS 

The design of the System Controller glue-logic can be replaced with a programmable logic 
device, such as a programmable gate array (PGA). This would reduce PCB area and power consumption. 
The Space Systems Academic Group needs to investigate the acquisition of tools to simulate and test as 
well as program such devices. 

An additional design change would be to not only incorporate the glue logic, but also the EDAC 
controller and memory buffers into the same PGA. This would further reduce power consumption and 
PCB area. Such a controller could use additional M80C186 status bits (S2 - SO). These status bits, along 
with the Bus High Enable and AO signals are available hiring the first half of the first T state of the 
microprocessor. These signals can identify if word write operations are about to occur in which the “read 
and correct” can be eliminated and the associated error flags may also be eliminated. This would also 
reduce power consumption since the RAM would be accessed less. 

The peripheral control bus (PCB) of the spacecraft requires too much supervision by the CPU in 
order to be effective for a data bus that requires higher data transfer rates. A simple controller could be 
designed that accesses a small FIFO memory which stores subsystem address, sub-addresses, and data (for 
a PCB write operation). The CPU could quickly add elements to the FIFO and let the controller 
independently handle all of the PPI transactions. Another incoming FIFO would be used to store data read 
from the PCB; it would be accessed by the CPU to gather incoming data. 

c. CONCLUSION 

The System Controller hardware and embedded software described in this thesis provide 
PANSAT with a reliable digital computer suitable for use in the LEO environment. The system is capable 
of autonomously controlling the spacecraft after launch and reset conditions. The system meets the design 
requirements by using a small number of readily available, reasonably priced components. 
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APPENDIX A. HARDWARE SCHEMATICS 



This appendix contains the detailed schematics for the System Controller hardware. The 
following drawings are included: 



Description 


Drawing (Figure) 


System Controller - CPU and Data/Address Buffers 


Figure 33 


System Controller - Memory 


Figure 34 


System Controller - A/D and SCC 


Figure 35 


System Controller - PCB, Power Detect, and Power Supply 


Figure 36 
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Figure 33. System Controller Schematic 1. 
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Figure 34. System Controller Schematic 2. 
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Figure 36. System Controller Schematic 4. 
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APPENDIX B. SYSTEM CONTROLLER CONNECTOR 

PIN-OUTS 



This appendix contains the pin-outs for all of the connectors of a System Controller. The 
connectors are the 9-pin analog input signals, the 9-pin RS-232 serial test port interface, the 25-pin 
Peripheral Control Bus, and the 37-pin Modem interface. 



Pin Number 


Name 


Description 


1 


DO 


Data Bit 0 


2 


D1 


Data Bit 1 


3 


D2 


Data Bit 2 


4 


D3 


Data Bit 3 


5 


D4 


Data Bit 4 


6 


D5 


Data Bit 5 


7 


D6 


Data Bit 6 


8 


D7 


Data Bit 7 


9 


so 


System Select Bit 0 


10 


SI 


System Select Bit 1 


11 


S2 


System Select Bit 2 


12 


GND 


Ground 


13 


SC_A 


System Controller Active 


14 


vcc 


PCB +5 V Power 


15 


SW_+12 


Switched +12 V Power 


16 


GND 


Ground 


17 


Unused 


Unused 


18 


RTSA 




19 


PCI 




20 


RF_EN 


RF Enable 


21 


RD 


PCB Read 


22 


WR 


PCB Write 


23 


A1 


Sub-address Bit 1 


24 


AO 


Sub-address Bit 0 


25 


S3 


System Select Bit 3 



Table 24. Peripheral Control Bus Connector. 
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Pin Number 


Name 


Description 


1 


IOA6 


Address Bit 6 


2 


IOA4 


Address Bit 4 


3 


IOA2 


Address Bit 2 


4 


PA 100 


PA 100 Chip Select 


5 


GND 


Ground 


6 


GND 


Ground 


7 


IOD7 


Data Bit 7 


8 


IOD5 


Data Bit 5 


9 


IOD3 


Data Bit 3 


10 


IOD1 


Data Bit 1 


11 


GND 


Ground 


12 


VCC 


Power To Buffers 


13 


GND 


Ground 


14 


IORD 


Read 


15 


MTXDATA 


Modem TX Data 


16 


MRXDATA 


Modem RX Data 


17 


+5 V 


Switched +5 V 


18 


+5 V 


Switched +5 V 


19 


M ODEMTEMP 


Modem Temperature 


20 


IOA5 


Address Bit 5 


21 


IOA3 


Address Bit 3 


22 


IOA1 


Address Bit 1 


23 


LATCH 


Latch Chip Select 


24 


GND 


Ground 


25 


GND 


Ground 


26 


IOD6 


Data Bit 6 


27 


IOD4 


Data Bit 4 


28 


IOD2 


Data Bit 2 j 


29 


IODO 


Data Bit 0 


30 


GND 


Ground 


31 


VCC 


Power To Buffers 


32 


GND 


Ground 


33 


IOWR 


Write 


34 


MTXCLK 


Modem TX Clock 


35 


MRXCLK 


Modem RX Clock 


36 


+5 V 


Switched +5 V 


37 


+5 V 


Switched +5 V 



Table 25. Modem Connector. 
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Pin Number 


Function 


1 


TMUXA+ 


2 


TMUXA- (ground) 


3 


Ground 


4 


TMUXB+ 


5 


TMUXB- (ground) 


6 


Ground 


7 


EPS+ 


8 


EPS- (ground) 


9 


Ground 



Table 26. Analog Signals Connector. 



Pin Number 


Name 


Function 


Direction 


i 


CD 


Carrier Detect 


Out 


2 


Tx 


Transmit Data 


Out 


3 


Rx 


Receive Data 


In 


4 


DTR 


Data Terminal Ready 


In 


5 


GND 


Ground 




6 


DSR 


Data Set Ready 


Out 


7 


RTS 


Ready To Send 


In 


8 


CTS 


Clear To Send 


Out 


9 


RI 


Ring Indicator 


Out 



Table 27. RS-232 Serial Port Connector. 
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APPENDIX C. CIRCUIT BOARD BILL OF MATERIALS 



Type 



Pattern 



Value 



Designators 



CAP0805 CAP 080 5 . OluF CIO C100 C101 

C102 C103 
C104 C105 
C106 C15 C18 
C69 C70 C71 
C72 C73 C74 
C75 C76 C77 
C78 C79 C80 
C81 C82 C83 
C84 C85 C86 
C87 C88 C89 
C90 C91 C92 
C93 C94 C95 
C96 C97 C98 
C99 

33 OpF Cll 

CAP1206 CAP1206 . luF C107 C108 

C109 C14 C17 
C2 C21 C23 
C26 C27 C28 
C3 C32 C33 
C34 C35 C36 
C37 C38 C39 
C4 C40 C41 
C42 C43 C44 
C45 C46 C47 
C48 C49 C5 
C50 C51 C52 
C53 C54 C55 
C56 C57 C58 
C59 C6 C60 
C61 C62 C63 
C64 C65 C 66 
C67 C68 C7 C9 



CTX3 2 


CTX32 


33uH 


L3 


DB25RM 


DB25RM 


HDC25M500 OS - 0 


J2 


DB37F 


DB37F 


HDC3 7F32000S - 0 


MJ 


DB9RF 


DB9RF 


HDC9F5000S- 0 


J31 
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DB9RM 


DB9RM 


HDC9M5000S-0 


J18 


54HC04 


DIP14 


54AC04 


U15 






54HC04 


U25 


54HC08 


DIP14 


54AC08 


U1 U12 U33 






54HC08 


U18 U35 


54HC125 


DIP14 


54HC125 


U2 


54HC32 


DIP14 


54AC32 


U34 U4 






54HC32 


U32 U37 


54HC74 


DIP14 


54AC74 


U29 


DG411 


DIP16 


DG411 


U27 


54HC245 


DIP20 


54AC245 


U38 U39 U8 






54HC245 


U10 U22 U23 


54HC573 


DIP20 


54AC573 


U40 U41 






54HC573 


U19 U20 U21 








U7 


54HC574 


DIP20 


54AC574 


U42 


27C256-120 


DIP28 




U36 U43 


1N751 


DO-35 


{Value} 


D3 D4 D5 


LM50 


LM50 


LM50 


U3 


80C186XL 


P186XL 




U5 


ACS630MS 


P63 0 




U26 


PCAP3528 


PCAP3528 


2 . 2uF 


Cl C13 


PCAP6032 


PCAP6032 


lOuF 


C110 C20 C22 


PCAP734 3 


PCAP734 3 


lOOuF 


C12 C16 C19 
C8 


CTX33-2 


PCTXFORM 


33uH 


L2 


CTX50-2 


PCTXFORM 


50uH 


LI 


AM85C30 


PPLC44 




U16 


IS82C55A 


PPLC44 




U14 


LM12H4 58 


PPLC44 




Ull 


MSM8256 


PSRAM 




U30 U31 U44 



98 



MAX744A 


PWS016 




U13 


MAX211E 


PWS028 




U17 


RES1206 


RES1206 


10K 


R1 R2 R3 R4 
R5 R6 R7 R8 






120 


R22 R23 R24 
R25 






147K 


RIO 






IK 


R15 R16 R17 






1M 


R12 






21. 5K 


Rll 






511K 


R14 






5K 


R13 R21 R9 


MBRS140T3 


SMB 


MBRS140T3 


D1 


MBRS340T3 


SMC 


MBRS340T3 


D2 


TPS2013 


S08 


TPS2013 


U6 


ICL8212 


TO - 99 


ICL8212 


U24 


XTAL-OSC 


XTAL-OSC 


14.7456MHz 


U9 



99 






100 



APPENDIX D. PERIPHERAL CONTROL BUS 
PROGRAMMABLE PERIPHERAL INTERFACE PORT 

CONFIGURATION 



This appendix contains a detailed description of the programmable peripheral interface (PPI - 
8255) that is used to control the peripheral control bus of the spacecraft. 



Bit 


Function 


7 


Read (active LOW) 


6 


Write (active LOW) 


5 


Sub-address 1 


4 


Sub-address 0 


3 


Select 3 


2 


Select 2 


1 


Select 1 


0 


Select 0 



Table 28. Port B Assignments for PPI (Address and Read/Write Control). 



Port Address 


Port Name 


Usage 


0x100 


Port A 


Bi-directional using Port C for handshake. 


0x102 


Port B 


Address selection and Read & Write strobes. 


0x104 


Port C 


Handshaking for Port A, EDAC and Modem Control. 


0x106 


Control 


Control register for this PPI. 



Table 29. PPI Port Usage. 



Bit 


Function 


7 


Handshake (unused) 


6 


Handshake 


5 


Handshake (unused) 


4 


Handshake 


3 


Handshake (unused) 


2 


EDAC Error Acknowledge (active LOW) 


1 


Read Latch Enable (active LOW) 


0 


Modem Power (active LOW) 



Table 30. Port C Assignments for PPI (Handshaking and Control). 
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APPENDIX E. ELECTRICAL POWER SYSTEM PORT 

CONFIGURATION 



This appendix contains a detailed description of the Electrical Power System (EPS) ports. 



Port 


Address 


Subaddress 


Bit 


Contents 


Port 0 


8 


0 


7 


Battery A Charge (7 ^enable ) 








6 


Battery A Discharge (7 = enable) 








5 


Battery A Online (7 = enable ) 








4 


Battery A Trickle Charge (7 = enable ) 








3 


Mass Storage A Power (7 = enable) 








2 


Temperature MUX A Power (7 = enable) 








i 


unused 








0 


Battery A Heater (7 = enable) 



Table 31. EPS PortO. 



Port 


Address 


Subaddress 


Bit 


Contents 


Port 1 


8 


1 


7 


Low Cell Voltage MUX Select 2 








6 


Low Cell Voltage MUX Select 1 








5 


Low Cell Voltage MUX Select 0 








4 


Low Cell Voltage Enable (7 = enable) 








3 


Medium Cell MUX Select 2 








2 


Medium Cell MUX Select 1 








1 


Medium Cell MUX Select 0 








0 


Medium Cell Voltage Enable (7 = enable) 



Table 32. EPS Control Port 1. 



Port 


Address 


Subaddress 


Bit 


Contents 


Port 1 


8 


2 


7 


unused 








6 


Battery B Heater (7 = enable) 








5 


RF Power (7 = enable) 








4 


Temperature MUX B Power (7 = enable) 








3 


Mass Storage B Power (7 = enable) 








2 


Antenna Release (7 = enable) 








i 


Solar Panel Current Inhibit ( 0 = inhibit, 1 = enable) 








0 


Solar Panel Current Strobe 



Table 33. EPS Control Port 2. 
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Port 


Address 


Subaddress 


Bit 


Contents 


Port 3 


8 


3 


7 


Current Select, or High Cell Voltage Select 3 








6 


Current Select, or High Cell Voltage Select 2 








5 


Current Select, or High Cell Voltage Select 1 








4 


Current Select, or High Cell Voltage Select 0 








3 


High Cell Voltage MUX Select 2 








2 


High Cell Voltage MUX Select 1 








1 


High Cell Voltage MUX Select 0 








0 


High Cell Voltage Enable (7 = enable) 



Table 34. EPS Control Port 2. 



Port 


Address 


Subaddress 


Bit 


Contents 


Port 5 


9 


1 


7 


unused 








6 


unused 








5 


unused 








4 


unused 








3 


unused 








2 


unused ' 








1 


Battery A Current Sense (0 = discharging) 








0 


Battery B Current Sense (0 = discharging) 



Table 35. Read-back Port 5. 



Port 


Address 


Subaddress 


Bit 


Contents 


Port 6 


9 


2 


7 


Battery B Charge (7 = enable ) 








6 


Battery B Discharge (7 = enable) 








5 


Battery B Online (7 = enable) 








4 


Battery B Trickle Charge (7 = enable) 








3 


unused 








2 


unused 








1 


unused f 








0 


unused 



Table 36. EPS Control Port 6. 



Battery Cell 


MUX Select Control (Port 3) 


0A 


0000 1110 


[OxOE] 


1A 


0000 1001 


[0x09] 


OB 


0000 1101 


[OxOD] 


IB 


0000 1011 


[OxOB] 



Table 37. EPS Low Cell Voltage Selections. 
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Battery Cell 


MUX Select Control (Port 3 ) 


2A 


1000 1111 


[0x8F] 


3A 


1100 1111 


[OxCF] 


4A 


ioio mi 


[OxAF] 


2B 


mo mi 


[OxEF] 


3B 


iooi nil 


[0x9F] 


4B 


noi nil 


[OxDF] 



Table 38. EPS Medium Cell Voltage Selections. 



Battery Cell 


MUX Select Control (Port 2 ) 


5A 


1010 0000 


[OxAO] 


6A 


1110 0000 


[OxEO] 


7A 


1001 0000 


[0x90] 


5B 


1101 0000 


[OxDO] 


6B 


1011 0000 


[OxBO] 


7B 


nil oooo 


[OxFO] 


8A 


1100 0011 


[0xC3] 


9A 


1100 1011 


[OxCB] 


8B 


iooo nil 


[0x8F] 


9B 


1000 0111 


[0x87] 



Table 39. EPS High Cell Voltage Selections 



Current Selection 


Label # 


MUX Select Control (Port 2 ) 


Port 3 


Solar Panel: 




0000 0000 


[00] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 1000 


[08] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 0100 


[04] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 1100 


[OxOC] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 0010 


[02] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 1010 


[OxOA] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 0110 


[06] 


0000 1100 


[OxOC] 


Solar Panel: 




0000 1110 


[OxOE] 


0000 1100 


[OxOC] 


Solar Panel Bus 




0000 0101 


[05] 


0000 1010 


[OxOA] 


Battery A 




0000 1001 


[09] 


0000 1010 


[OxOA] 


Battery B 




0000 0001 


[01] 


0000 1010 


[OxOA] 



Table 40. EPS Current Selections. 
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APPENDIX F. A/D ACQUISITION 



Period 


Cycle 


Set 


A/D INO 


A/D INI 


A/DIN2 


A/DIN4 


A/DIN6 








(DCS) 


(Modem) 


(EPS) 


(TMUXA) 


(TMUXB) 


0 


0 


0 


DCS 


Modem 


SC Current 


0 


0 


1 


1 








Battery A Cell 0 Voltage 


1 


1 


2 


2 








Battery A Cell 1 Voltage 


2 


2 


3 


0 


1 






Battery A Current 


3 


3 


4 


1 








Battery A Cell 2 Voltage 


4 


4 


5 


2 








Battery A Cell 3 Voltage 


5 


5 


6 


0 


2 






Battery B Current 


6 


6 


7 


1 








Battery A Cell 4 Voltage 


7 


7 


8 


2 








Battery A Cell 5 Voltage 


8 


8 


9 


0 


3 






SC Current 


9 


9 


10 


1 








Battery A Cell 6 Voltage 


10 


10 


11 


2 








Battery A Cell 7 Voltage 


11 


11 


12 


0 


4 






Battery A Current 


12 


12 


13 


1 








Battery A Cell 8 Voltage 


13 


13 


14 


2 








Battery B Cell 0 Voltage 


14 


14 


15 


0 


5 






Battery B Current 


15 


15 


16 


1 








Battery B Cell 1 Voltage 


16 


16 


17 


2 








Battery B Cell 2 Voltage 


17 


17 


18 


0 


6 






SC Current 


18 


18 


19 


1 








Battery B Cell 3 Voltage 


19 


19 


20 


2 








Battery B Cell 4 Voltage 


20 


20 


21 


0 


7 






Battery A Current 


21 


21 


22 


1 








Battery B Cell 5 Voltage 


22 


22 


23 


2 








Battery B Cell 6 Voltage 


23 


23 


24 


0 


8 






Battery B Current 


24 


24 


25 


1 








Battery B Cell 7 Voltage 


25 


25 


26 


2 








Battery B Cell 8 Voltage 


26 


26 


27 


0 


9 






SC Current 


27 


27 


28 


1 








Spacecraft Bus Voltage 


28 


28 


29 


2 








Solar Panel 0 Current 


29 


29 


30 


0 


10 






Battery A Current 


30 


30 


31 


1 








Solar Panel 1 Current 


31 


31 


32 


2 








Solar Panel 2 Current 






33 


0 


11 






Battery B Current 






34 


1 








Solar Panel 3 Current 






35 


2 








Solar Panel 4 Current 






36 


0 


12 






SC Current 






37 


1 








Solar Panel 5 Current 






38 


2 








Solar Panel 6 Current 






39 


0 


13 






Battery A Current 






40 


1 








Battery B Current 






41 


2 








Solar Panel 7 Current 







Table 41. A/D Conversion Schedule. 
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APPENDIX G. THERMISTOR TEMPERATURE 

CONVERSIONS 



To simplify temperature conversions for the Omega 440048 thermistors, a table is used to perform 
a binary' search where a maximum of seven compares are needed for a lookup. The table is used by taking 
the value from the A/D converter and finding the closest match in the table. The position of the match in 
the table indicates the temperature of the sensor. The following discussion describes how the conversion 
process works. 



r = 



1 

A + B* ln(/?) + C * [ln(7?)] 3 



-273.15 



( 10 ) 



The equation shown above uses three coefficients which were calculated using the temperature 
range suggestions from the Omege Temperature Sensor manual [Ref. X]. A short MATLAB program 
(given below) was created to determine these coefficients based on the assumption that the most accurate 
temperature conversions are needed in the temperature ranges between 0°C to 30°C. The ability to change 
the coefficients means that the conversion formula can be tailored to have the best conversion for a certain 
temperature range. In doing so, three temperatures must be selected when using the program. One 
temperature must be below the range, another within the range, and the third above the range. 

Furthermore, there can be no more than 100°C between the two extremes, and each successive temperature 
can be no more than 60°C apart. The temperatures used are -30°C, 20°C, and 60°C. The corresponding 
resistances based on the generic lookup conversion provided by Omega are 481 kQ, 37.3 kQ, and 
7.599 kQ . The values for the coefficients are A=9.306xl0’ 4 , B= 2.218X10* 4 , and C=1.253xl0' 7 . 

T1 = -30 + 273 .15; 

T2 = 20 + 273.15; 

T3 = 60 + 273.15; 

T = [1/T1; 1/T2; 1/T3]; 

R1 = 481. 0E3; 

R2 = 37.3E3; 

R3 = 7599; 

R = [1 1 1; log (Rl) log(R2) log(R3); (log(Rl))"3 (log(R2)) A 3 

(log(R3) P3] ' ; 

S = inv (R) *T; 

S 
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One channel of each temperature multiplexing unit is reserved as a fixed 1% precision resistor is 
used as a calibration resistor to create a calibration current. The calibration current, I c , is converted as 
follows. 



I C - ^ - 0.001 22 1 * f 1 

Rc Rc \R C ) 

where R c is the resistance of a (fixed 1%) 
Calibration Resistor equal to xxx Q. 

Thus, a particular thermistor resistance, R, is converted as follows. 



(H) 



R = 



Vr 

k 




= 0.001221* 



-1 

\lc> 



( 12 ) 



For quick temperature conversions, a table lookup is used where the value N is an index into the 
table. This table is shown in Table 42. Assuming a constant calibration current, the table can remain 
static. If the calibration current changes significantly, the table can be recalculated simply by multiplying 
all of the entries by the change in the calibration current. 



N = 




= 819* R* Ic 



( 13 ) 



Because of the resolution of the A/D converter, temperatures above 88° C do not have unique 
conversions from the A/D. Since 5 mV of noise are allowed within the system, temperatures above 44° C 
are not accurate to within one degree Celsius. Finally, a saturated reading from the A/D, i.e. N = 4095, 
corresponds to any low temperature below -30° C. Note, 4191 is above the limit of the A/D, yet 
corresponds to the next integral temperature below -30° C. 
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T (C) 


A/D (N) 




T (C) 


A/D (N) 




T (C) 


A/D (N) 


-30.0 


3949 




10.0 


482 




50.0 


90 


-29.0 


3723 




11.0 


461 




51.0 


87 


-28.0 


3512 




12.0 


440 




52.0 


84 


-27.0 


3313 




13.0 


420 




53.0 


81 


-26.0 


3127 




14.0 


401 




54.0 


78 


-25.0 


2952 




15.0 


383 




55.0 


75 


-24.0 


2788 




16.0 


366 




56.0 


72 


-23.0 


2634 




17.0 


350 




57.0 


70 


-22.0 


2490 




18.0 


335 




58.0 


67 


-21.0 


2354 




19.0 


320 




59.0 


65 


-20.0 


2226 




20.0 


306 




60.0 


62 


-19.0 


2106 




21.0 


293 




61.0 


60 


-18.0 


1993 




22.0 


281 




62.0 


58 


-17.0 


1887 




23.0 


269 




63.0 


56 


-16.0 


1787 




24.0 


257 




64.0 


54 


-15.0 


1693 




25.0 


246 




65.0 


52 


-14.0 


1604 




26.0 


236 




66.0 


51 


-13.0 


1520 




27.0 


226 




67.0 


49 


-12.0 


1442 




28.0 


217 




68.0 


47 


-11.0 


1368 




29.0 


208 




69.0 


46 


-10.0 


1298 




30.0 


199 




70.0 


44 


-9.0 


1231 




31.0 


191 




71.0 


43 


-8.0 


1169 




32.0 


183 




72.0 


41 


-7.0 


1110 




33.0 


176 




73.0 


40 


-6.0 


1055 




34.0 


169 




74.0 


38 


-5.0 


1002 




35.0 


162 




75.0 


37 


-4.0 


953 




36.0 


156 




76.0 


36 


-3.0 


906 




37.0 


150 




77.0 


35 


-2.0 


862 




38.0 


144 




78.0 


34 


-1.0 


820 




39.0 


138 




79.0 


33 


0.0 


780 




40.0 


133 




80.0 


32 


1.0 


743 




41.0 


127 




81.0 


31 


2.0 


707 




42.0 


123 




82.0 


30 


3.0 


673 




43.0 


118 




83.0 


29 


4.0 


642 




44.0 


113 




84.0 


28 


50 


611 




45.0 


109 




85.0 


27 


6.0 


583 




46.0 


105 




86.0 


26 


7.0 


556 




47.0 


101 




87.0 


25 


8.0 


530 




48.0 


97 




88.0 


24 


9.0 


506 




49.0 


94 









Table 42. Thermistor Lookup Conversion Table. 



Ill 
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APPENDIX H. SPACECRAFT COMMAND ENCODING 



This appendix gives the command encoding details. 



Byte|0[ 


Byte 1 1 ( - Byte[4[ 


0x05 


Address 



Table 43. Execute Command. 



Byte[0| 


Byte| 1 [ -Byte[4[ 


Byte|5| 


Byte[6[ - Byte(261] 


OxOA 


Address 


Count 

(0=> 

256) 


Code/data 



Table 44. Load Command. 



Byte[0[ 


Byte|l[ - 
Byte[4[ 


Byte [5] 


Byte[6] - 
Byte(9[ 


Byte 1 1 0[ 


- 


Byte|256[ - 
Byte|259[ 


Byte [260] 


0x5A 


Address 


Size 

(0=>256) 


Address 


Size 

(0=>256) 




Address 


Size 

(0=>256) 



Table 45. Map Command. 



Byte|0[ 


Byte[l]-Byte[3[ 


OxFF 


OxAA, 0x55, OxFF 



Table 46. Reset Command. 



BytejOj 

0x00 



Table 47. Status Command. 



Byte[0| 

OxAA 



Table 48. Verify Load Command. 
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APPENDIX I. SOFTWARE GENERATION FACILITIES 



This appendix contains the software generation facilities for the ROM Boot Loader embedded 
software for the System Controller. 

A PC compatible workstation using standard software generation tools creates the PANSAT Boot 
ROM software. The Microsoft C Compiler version 5.0 and the Microsoft Macro Assembler version 5.10 
translate the software source code into object modules. The Make facility included with these code 
generators provides an automated method for generating the ROM image. Systems And Software, Xlink86 
version 6.10e links all of the object modules into a relocatable code image. Systems And Software Xloc86 
version 6.10 translates the relocatable image into absolute address code and data. Finally, Systems And 
Software PROM86 version 6.0a prepares a binary image suitable for the ROM. The makefile, named 
dcs.mak and shown below, is responsible for identifying all the source modules and their dependencies 
which are required to build the entire ROM image for the embedded software. 

############################################################################## 

# 

ti DCS.MAK 
# 

# 

ti Date Who What 

ti + + 

ti 25 March 1996 Jah Creation 
ti 

############################################################################## 



############################################################################## 

# 

ti Compiler and Assembler options 
ti 

############################################################################## 

tfMAKEDIR = . 

ti- 



ti Compiler options: 


/c 


no linking 


ti 


/AS 


small model (64k code, 64k data) 


ti 


/ Zp 


pack structures on n boundary 


ti 


/Gs 


no stack checking 


ti 


/Od 


no optimizations 


ti 


/Oi 


enable intrinsic functions 


ti 


/FPa 


FP calls with altmath library 


ti 


/G1 


use 80186 instructions 



ns 



# /Zi add symbolic debugging information 

CFLAGS = /c /AS /Zpl /Gs /Od /Oi /FPa /G1 /Zi 

# 

# Assembler options:/Mx case-sensitive identifiers 

# /Zi add symbolic debugging information 

AFLAGS = /Mx /Zi 

# 

# General (common) dependencies 

# 

GEN_DEPS = gen_defs.h gen_apis.h 

OBJS = dcs.obj ad.obj bcm.obj clock.obj edac.obj eps.obj gen_apis.obj modem. obj msu.obj\ 
pcb.obj print.obj scc.obj stpi.obj terms.obj tlm.obj startup.obj 

############################################################################## 

# 

# Compilations 

# 

############################################################################## 
dcs.omf: dcs.abs 

cv2omf dcs.abs to dcs.cv 
prom86 dcs.cv to dcs.omf omf initdata 
prom86 dcs.abs to dcs.bin ad(0F0000h, OFFFFFh) initdata one 

# Absolute address relocated image 
dcs.abs: dcs.lnk 

xloc86 @dcs.loc 



# Linked image 
dcs.lnk: $(OBJS) 

xlink86 @dcs.lk 



# source code modules 

dcs.obj: dcs.c dcs.h pcb.h $(GEN_DEPS) 

ad.obj: ad.c ad.h pcb.h tlm.h $(GEN_DEPS) 

bcm.obj: bcm.c bcm.h ad.h clock.h pcb.h tlm.h $(GEN__DEPS) 

clock.obj: clock.c edac.h $(GEN_DEPS) 

edac.obj: edac.c edac.h $(GEN_DEPS) 

eps.obj: eps.c eps.h pcb.h $(GEN_DEPS) 

gen_apis.obj: gen apis.c gen apis.h $(GEN_DEPS) 

#int.obj : int.c int.h $(GEN_DEPS) 
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modem. obj: 


modem. c modem. h $(GEN_DEPS) 


msu.obj: 


msu.c msu.h peb.h $(GEN_DEPS) 


pcb.obj: 


pcb.c peb.h $(GEN_DEPS) 


print.obj: 


print. c print.h $(GEN_DEPS) 


#rf.obj: 


rf.c rf.h pcb.h $(GEN_DEPS) 


see. obj: 


scc.c scc.h $(GEN_DEPS) 



#scenario.obj: scenario.c scenario.h $(GEN_DEPS) 
#spacket.obj: spacket.c spacket.h scc.h $(GEN_DEPS) 



stpi.obj: 


stpi.c stpi.h print.h tlm.h $(GEN_DEPS) 


terms, obj: 


terms. c terms.h $(GEN_DEPS) 


tlm.obj: 


tlm.c tlm.h ad.h bcm.h peb.h $(GEN_DEPS) 


startup. obj: 


startup.asm 
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All of the modules are linked together by XLINK86 which uses a file named dcs.lk (shown below) to 
identify each module. 

startup. obj, dcs.obj, ad.obj, bcm.obj, clock.obj, edac.obj, eps.obj, gen_apis.obj, modem.obj, msu.obj, 
pcb.obj, print.obj, scc.obj, stpi.obj, terms.obj, tlm.obj, & 
slibca.ssi& 
to dcs.lnk 

Finally, the linked ROM image needs to have all address relocated to absolute addresses 
corresponding to the location of the ROM in the embedded system. This process is called loading, and is 
performed by the program XLOC86 which uses the file dcs.loc (shown below) to describe the relocation 
needed. 



dcs.lnk to dcs.abs & 

NOINITCODE & 

ORDER(CS(& 

FAR DATA BEG, FAR DATA, FAR_DATA_END,& 
FAR BSS BEG, FAR BSS, FAR_BSS_END,& 

HUGE BSS BEG, HUGE_BSS, HUGE_BSS_END,& 
DATA_BEG, DATA, CONST, MSG, DATA END, & 
BSS, BSS_END,& 

STACK, & 

CODE, CODE_END,& 

BOOTSTRAPS 

ADDRESSES(CS(FAR_DATA_BEG(0400H), CODE(OFOOOOh))) 
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APPENDIX J. SOFTWARE SOURCE CODE 



This appendix contains the software source code for the ROM Boot Loader software for the System 
Controller. The following source code files are included: 



Module (filename) 


Description 


Page(s) 


ad.h, ad.c 


A/D converter 1SR and support routines. 


120-129 


bcm.h, bcm.c 


Battery control monitor. 


130-146 


clock.h, clock.c 


Clock. 


147- 148 


cmd.h, cmd.c 


Command interpreter. 


149- 151 


dcs.h, dcs.c 


main() and master loop for ROM boot loader. 


152-155 


edac.h, edac.c 


ED AC ISR and RAM wash. 


156- 158 


eps.h, eps.c 


EPS support routines 


159- 164 


genapis.ch genapis.c 


General (common) subroutines used by other modules. 


165- 167 


gendefs.h 


General #defines, typedefs, and macros. 


168- 169 


int.h, int.c 


CPU interrupt control and support. 


170-170 


modem.h, modem. c 


Modem (PA- 100) support routines. 


171 - 176 


msu.h, msu.c 


Mass storage support routines. 


177-192 


pcb.h, pcb.c 


PCB support routines. 


193 - 197 


print.h, print.c 


Display support for STPI: printf()-like facilities. 


198-204 


rf.h, rf.c 


RF support routines. 


205 - 207 


scc.h, scc.c 


SCC support routines. 


208-217 


scenario.h, scenario.c 


Scenario (alternate hw/sf) support routines. 


218-218 


spacket.h, spacket.c 


Synchrounous packet protocol support routines. 


219-219 


startup, asm 


Startup (80186 assembler) module. 


220 - 240 


stpi.h, stpi.c 


Spacecraft test port interface (RS-232) support routines. 


241 -273 


terms.h, terms.c 


Terminal emulation support for STPI. 


274 - 276 


tlm.h, tlm.c 


Telemetry management support routines. 


277 - 283 
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ad.h ad.c 



/****************************************★************************** 



******* 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning {Jah) 

* 

* Revision History: 



* Date 



Who What 



* 15 April 1996 Jah Creation 

* 25 Feb 1997 Jah ROM version: reflects EPS port changes 

* 

**************************************************************************r**/ 



/* Approximate time for a A/D Set to be aquired. This is the approximate 
* difference in time between successive current readings to the batteries. 
*/ 

# define. AD_DELTA_T 1 

^define AD_RES ( (double) {5 . 0/4095 . 0) ) 



#if def AD 



#def ine 


AD_ 


BASE 


0x80 






#def ine 


ad” 


INSTR0 


AD_BASE 






#def ine 


ad" 


INSTRl 


AD_BASE 


+ 


2 


#def ine 


AD_ 


INSTR2 


AD_BASE 


+ 


4 


#def ine 


AD_ 


_INSTR3 


AD_BASE 


+ 


6 


#def ine 


AD_ 


INSTR4 


AD_BASE 


+ 


8 


# def ine 


ad" 


INSTR5 


AD_BASE 


+ 


OxOA 


#def ine 


AD_ 


INSTR6 


AD_BASE 


+ 


OxOC 


#def ine 


AD_ 


_INSTR7 


AD_BASE 


+ 


OxOE 


#def ine 


AD_ 


CONFIG 


AD_BASE 


+ 


0x10 


#def ine 


AD_ 


JEER 


AD_BASE 


+ 


0X12 


#def ine 


AD_ 


_ISR 


AD_BASE 


+ 


0x14 


#def ine 


AD_ 


_TIMER AD_ 


_BASE + 0X16 




#def ine 


AD_ 


_FIFO 


AD_BASE 


+ 


0x18 


# def ine 


ad" 


_LIMIT AD_ 


_BASE + OxlA 



/* Masks */ 

#def ine RAM00 0x0000 
#def ine RAM01 0x0100 
#def ine RAM02 0x0200 



/* Define the A/D schedule for readings. 

* The schedule is organized into periods. For startup, there are 

* 54 periods, number 0-53. Each period uses between one and 5 

* inputs on the A/D. A/D IN0 is the DCS temperature sensor, 

* A/D INI is the Modem temperature sensor, A/D IN2 is the EPS, 

* A/D IN4 is the TMUXA, and A/D IN6 is the TMUXB. 

* 

* Since the EPS contains the current sensors for the batteries and 

* the spacecraft bus (total solar panel current input) , and these 

* signals must be read frequently for accurate current integration 

* and quick eclipse sensing, the schedule repeats these readings, 

* interleaving them with other readings. Each interleaving set 

* is called a Set, numbered from 0 to 13 . There are normally 

* three (3) cycles per set. 

*/ 



# def ine 


NUM_INPUTS 


5 




#def ine 


NUM_PERIODS 


42 




#def ine 


NUM_STEPS 


14 




#def ine 


NUM_INSTRS 


5 


/* Maximum Sequencer instructions */ 


#def ine 


NO_PCB 


{{unsigned char) OxFF) /* 


indicates no PCB required for 

* reading; but a reading is needed. 
*/ 

perform no reading on the A/D 

* channel for a given period. 


#def ine 


NO_READ 


( (unsigned char) OxFE) /* 



*/ 



/* EPS Setup requires potentially more than one Port 1/2/3 writing 
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depending on the sensor. This table is per period and shows 
for a given period, which port (s) need written to. Also, this 
table indicates if the Current Inhibit Switch needs to be 
disabled, i.e. current reading will be made. 



*/ 



#define NOT_USED ((unsigned char) OxFF) 



/* indicates port is not used */ 



# define NO_CUR 
#def ine CURRENT 
#def ine CUR_DIR 



( (unsigned char) 0x00) 
( (unsigned char) 0x01) 
((unsigned char) 0x02) 



/* not a current measurement */ 

/* current: solar bus, solar panels */ 
/* current w/ directiont */ 



#define NO_INSTR ((unsigned int ) OxFFFF) /* instruction not used */ 



/* This structure describes to the ad_collect() function how to save A/D 
* samples into the correct categories and positions within those categories. 
*/ 

typedef struct ad_collect_params 

( 

unsigned char type; 

unsigned char position; 

} ad_collect_params_struct ; 

/* Sensor types, used by ad_collect() and ad_collect_params ( ) */ 



#define 


THERMISTOR 


( (unsigned 


char) 0) 


#define 


T£MP_SENSOR 


( (unsigned 


char) 1) 


#def ine 


V_BATTA 


( (unsigned 


char) 2 ) 


#def ine 


V_BATTB 


( (unsigned 


char) 3) 


#def ine 


V_BUS 


( (unsigned 


char) 4) 


#def ine 


I_BATTA 


( (unsigned 


char) 5) 


#def ine 


I_BATTB 


( (unsigned 


char) 6) 


#def ine 


I_BUS 


( (unsigned 


char) 7) 


#def ine 


I_SOLAR 


( (unsigned 


char) 8) 


/* AD Error Flags */ 








#def ine 


AD_WAIT 




5000 




#def ine 


AD_ N °_ERROR 




0 




#def ine 


AD_RESET_ERROR 


1 




#def ine 


AD_FIFO_COUNT 


ERROR 


2 




#def ine 


AD_CAL I B_WAI T_ 


_ERROR 


3 




void 


ad_collect (void) 






void 


ad_init (void) ; 






void interrupt far ad_isr() 


; 




#endif 










#ifndef AD 










extern 


int 




samples_ready; 


extern 


int 




ad_f lag; 


extern 


void 




ad_collect (void) 


extern 


void 




ad_init (void) ; 


extern 


void interrupt 


far ad_; 


isr () ,* 





#endif 
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AD. C 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



* 24 April 19 96 Jah Creation 

* 25 Feb 1997 Jah ROM version includes new EPS port assignments. 

* 

♦***************************************************************************/ 



#include 



"gen_def s .h" 



#def ine 

#include 

#undef 



AD 

"ad.h" 

AD 



#include 

#include 

#include 

#include 

#include 



" bcm .h" 
"clock . h" 
" eps .h" 
"pcb .h" 

" tlm.h" 



static WORD 
static WORD 
static int 



period = 0; 

ad_values [NUM_PERIODS] [NUM_INPUTS] ; 
negative_current [NUM_PERIODS] ; 



int samples_ready = FALSE; 



int ad_flag = AD_NO_ ERROR ; 



/* Schedule of PCB Commands for EPS reading */ 
static const BYTE ad_sch_eps [NUM_PERIODS] [3] = 
{ 



/* Current? 
/* Set 0 */ 
{CURRENT, 
{NO_CUR, 

{ NO_CUR , 



Port 3 

(BYTE) 0x80, 
NOTJJSED, 

NOT USED, 



Port 1 */ 

(BYTE) 0x30}, /* ISC */ 
(BYTE) 0X70}, /* A0 */ 

(BYTE) 0x90}, /* A1 */ 



/* Set 1 */ 
{ CUR_DIR, 

{no_cur, 

{ NO_CUR , 



(BYTE) 0x90, 
NOT_USED, 

NOT USED, 



(BYTE) 0x30}, /* IA */ 
(BYTE) OxFl } , /* A2 */ 
(BYTE) 0xF3 } , /* A3 */ 



/* Set 2 */ 
{ CUR_DIR, 
(NO_CUR, 
{NO_CUR, 



(BYTE) OxAO , 
NOT_USED, 

(BYTE) 0x01, 



(BYTE) 0x30}, /* IB */ 
(BYTE) 0xF5 } , /* A4 */ 
(BYTE) 0x10 }, /* A5 */ 



/* Set 3 */ 
(CURRENT, 
{NO_CUR, 
{NO_CUR, 



(BYTE) 0x80, 
(BYTE) 0x03, 
(BYTE) 0x05, 



(BYTE) 0x30), /* ISC */ 
(BYTE) 0x10 } , /* A6 */ 

(BYTE) 0x10}, /* A 7 */ 



/* (Set 4) 
{ CUR_DIR, 
{NO_CUR, 

{ NO_CUR , 



(BYTE) 0x90, 
(BYTE) 0x07, 
NOTJUSED, 



(BYTE) 0x30} , /* IA */ 
(BYTE) 0X10} , /* A8 */ 
(BYTE) OxBO } , /* B0 */ 



/* (Set 5) 
{ CUR_DIR, 
{NO_CUR, 

(no_cur, 



(BYTE) 0XA0, 
NOT_USED , 
NOT_USED, 



(BYTE) 0x30}, /* IB */ 
(BYTE) OxDO } , /* B1 */ 
(BYTE) 0xF7 } , /* B2 */ 



/* Set 6 */ 
{CURRENT, 
{NO_CUR, 
{NO_CUR, 



(BYTE) 0x80, 
NOT_USED , 
NOT_USED, 



(BYTE) 0x30}, /* ISC */ 
(BYTE) 0xF9 } , /* B3 */ 

(BYTE) OxFB } , /* B4 */ 



/* Set 7 */ 
{CUR_DIR, 

{ NO_CUR , 



(BYTE) 0x90, 
(BYTE) 0x09, 



(BYTE) 0X30}, /* IA */ 
(BYTE) 0x10 }, /* B5 */ 
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{ NO_CUR , 




(BYTE) OxOB, 


(BYTE) 0x10}, /* B6 * 


/ 


/* Set 8 
{ CUR__DIR, 


*/ 


(BYTE) OxAO , 


(BYTE) 0x30}, /* 


IB */ 


{ NO_CUR , 




(BYTE) OxOD, 


(BYTE) 0x10}, /* B7 * 


/ 


{NO_CUR, 




(BYTE) OxOF, 


(BYTE) 0x10}, /* B8 * 


/ 


/* Set 9 
{CURRENT, 


*/ 


(BYTE) 0x80, 


(BYTE) 0x30}, /* 


ISC */ 


{ NO_CUR, 




NOT_USED, 


(BYTE) OxFD} , /* VSC 


*/ 


{CURRENT, 




(BYTE) 0x00, 


(BYTE) 0x50}, /* 


SP0 */ 


/* Set 10 
{ CUR_DIR, 


*/ 


(BYTE) 0x90, 


(BYTE) 0x30}, /* 


IA */ 


{CURRENT, 




(BYTE) 0x10, 


(BYTE) 0x50}, /* 


SP1 */ 


{CURRENT, 




(BYTE) 0X20, 


(BYTE) 0x50}, /* 


SP2 */ 


/* Set 11 
{ CUR_DIR, 


*/ 


(BYTE) OxAO, 


(BYTE) 0x30}, /* 


IB */ 


{CURRENT, 




(BYTE) 0x30, 


(BYTE) 0x50}, /* 


SP3 */ 


{CURRENT, 




(BYTE) 0x40, 


(BYTE) 0x50}, /* 


SP4 */ 


/* Set 12 
{CURRENT, 


*/ 


(BYTE) 0x80, 


(BYTE) 0X30}, /* 


ISC */ 


{CURRENT, 




(BYTE) 0x50, 


(BYTE) 0x50}, /* 


SP5 */ 


{CURRENT, 




(BYTE) 0x60, 


(BYTE) 0x50}, /* 


SP6 */ 


{ CUR_DIR, 




(BYTE) 0x90, 


(BYTE) 0x30}, /* 


IA */ 


{ CUR_DIR, 




(BYTE) OxAO, 


(BYTE) 0x30}, /* 


IB */ 


{CURRENT, 




(BYTE) 0x70, 


(BYTE) 0x50}, /* 


SP7 */ 



}; 



/* Describe how to take the raw samples and organize them by types into 

* the correct sensor type arrays. This is for the EPS readings only. 

* The other channels are easy to categorize based on the period number 

* (e.g. periods 0-31 have TMUX readings, period 0 has DCS & Modem 

* temperature readings) . 

*/ 

static const ad_collect_params_struct ad_collect_table [NUM_PERIODS] = 

{ 

/* Period 0, Set 0 */ 

{ I_BUS , 0 } , 

{ V_B ATTA , 0}, 

{ V_B ATTA , 1}, 

/* Period 3, Set 1*/ 

{ I_BATTA, 0 } , 

{ V_BATTA, 2), 

{ V_BATTA, 3}, 

/* Period 6, Set 2 •/ 

{ I_BATTB , 0 ) , 

{V_BATTA, 4 } , 

{ V_BATTA , 5), 

/* Period 9, Set l •/ 

{ I_BUS , 1 ) f 
{ V_BATTA, 6). 

{ V_BATTA, 7}, 

/* Period 12. Set 4 •/ 

{l_BATTA, 1). 

{ V_B ATTA , 8-}, 

{ V_B ATTB , 0). 

/* Period IS. Set * •/ 

{ I_BATTB , 1 ) . 

{ V_BATTB . 1), 

{ V_B ATTB , 2), 

/* Period 18. Set t> •/ 

{ I_BUS , 2}, 

{ V_BATTB , 3). 

{ V_B ATTB , 4}, 

/* Period 21. Set 7 •/ 

{ I_BATTA, 2), 

{ V_B ATTB , 5}, 

{ V_B ATTB , 6 ) , 

/* Period 24, Set 8 */ 

{ I_BATTB , 2}, 
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{ V_B ATTB , 7 } , 
{ V_BATTB , 8 } , 



/* Period 


27, 


Set 


9 * 


7 


{ I_BUS , 3} 


, 








{ V_BUS , 0} 


, 








(l_SOLAR, 


o}. 








/* Period 


30, 


Set 


10 


*/ 


{ I_BATTA, 


3}, 








{ I_SOLAR, 


1}, 








{ I_SOLAR, 


2}, 








/* Period 


33, 


Set 


11 


*/ 


{ I_BATTB , 


3 } / 








{I^SOLAR, 


3}, 








{ I_SOLAR, 


4}, 








/* Period 


36, 


Set 


12 


*/ 


{ I_BUS , 4 } , 








{ I_SOLAR / 


5}, 








{ I_SOLAR y 


6}, 








/* Period 


39, 


Set 


13 


*/ 


{ I_B ATTA , 


4}, 








{ I_BATTB , 


4 } / 








{ I_SOLAR, 


7}, 









/***************************************************************************** 

* 

* voidad_init() 

* 

* Initialize the A/D. Recalibrate. Setup first (period=0> program. 

* Set Sequencer Timer (delay before acquisitoin) to 10 msec. 



★***************************************************************************/ 



voidad_init (void) 

( 

int i ; 
int x; 
WORD temp; 



/* Turn on the TMUXes to allow temperature sensing */ 
eps_set_power (PWR_TMUXA, ON) 

pcb_write (TMUXA, 0, 0x10); /* select channel 0 (calibration resistor) */ 

eps_set_power (PWR_TMUXB / ON) ; 

pcb_write (TMUXB , 0, 0x10); /* select channel 0 (calibration resistor) */ 



/* Zero out values because no A/D has yet occurred (or forcing reset) */ 
for (i = 0; i < NUM_PERIODS ; i++) 

( 

negative_current [i] = 0; 
ad_values[i] [0] = 0; 
ad_values[i] [1] =0; 

} 



period =0; /* index into ad_sch[] [] */ 



/* Setup MUXes A/B for first temperature sensors (Calibration resistors) */ 
pcbwjm (TMUXA0, 0, 0x10) 
pcbw_m( TMUXB 0, 0, 0x10) 

/* Setup EPS for first reading */ 

pcbw_m (EPS0, 3, (ad_sch_eps [0] [1] ) ) /* EPS Port 3 */ 

pcbw_m (EPS0 , 1, (ad_sch_eps [0] [2] ) ) /* EPS Port 1 */ 

eps_set_jport2 (eps_get_port2 ()); 

outpw (AD_CONFIG, 0x0002); /* Reset the A/D */ 

/* Wait for RESET bit to clear */ 

for (x *0; (x < AD_WAIT) && ( inpw (AD_CONFIG) & 0x0002); X++) 

if (x *= AD_WAIT) 

{ 

ad_f lag = AD_RESET_ERROR; 
return; 

} 
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outpw {AD_CONFIG, 0x0008); /* Full Calibration */ 

/* Wait for CALIBRATION bit to clear * / 

for (x = 0; (x < AD_WAIT) && (inpw (AD_C0NFIG) & 0x0008); X++) 

if (X == AD_WAIT) 

{ 

ad_f lag = AD_CALIB_WAIT_ERR0R; 
return; 

} 



outpw {ADJZONFIG, 0x0000) ; 



/* stop the sequencer and point to RAM 00 */ 



/* Program A/D Sequencer 
outpw (AD_INSTR0, 0xF208) 
outpw <AD_INSTR1, 0xF208) 
outpw <AD_INSTR2, 0xF210) 
outpw {AD_INSTR3 , 0xF218) 
outpw (AD_INSTR4, 0xF200) 
outpw (AD_INSTR5, 0xF204) 
outpw <AD_INSTR6, 0xF202) 



schedule for period 0 */ 
/* EPS */ 

/* EPS */ 

/* TMUX A */ 

/* TMUX B */ 

/* DCS */ 

/* Modem */ 

/* Pause */ 



based on 



/* Setup A/D Timer */ 
outpw (AD_TIMER, 2000); 

outpw {AD_C0NFIG, 0x0002); /* Reset the A/D */ 

/* Wait for RESET bit to clear */ 

for {x = 0; (x < AD_WAIT) && (inpw (AD_C0NFIG) & 0x0002) ; x++) 

if (X == AD_WAIT) 

{ 

ad_f lag = AD_RESET_ERROR ; 
return; 

} 

/* Force A/D to interrupt when 6 readings in the FIFO occur */ 
outpw (AD_IER, 0x3004) ; 

/* Clear any interrupts of the A/D by reading the status register */ 
inpw{AD_ISR) ; 

/* Allow IRQs from A/D LM12H458 to the CPU */ 

#def ine I ICON 0xFF3A 

outpw (I ICON, 0x0005); /* Edge-trig., ON, priority 5 */ 

/* Start the A/D Sequencer. Interrupt will occur eventually */ 
outpw (AD_CONFIG, 0x0001) ; /* start sequencer */ 

while (samples_ready == FALSE) /* wait for end of first A/D sweep */ 



} /* End of ad_init() */ 



* 

* void interrupt far ad_isr() 

* 

**************************************************************************** ^ 



void interrupt far ad_isr() 

{ 

register int p; 
register int x; 

BYTE temp; 

static int c = 6; /* first A/D period has six samples to read */ 



outpw {AD_C0NFIG, 0x0000); 
i npw ( AD_I SR ) ; 



/* Stop sequencer, point to RAM 00 */ 
/* this clears the interrupt */ 



p = period; 



/* get a register copy of the current period */ 



/*********************** i 

/* Collect A/D samples */ 

/**•*••*••*•*******«**** i 

/* Wait for all the samples in the FIFO */ 

for (x = 0; (x < AD_WAIT) && ( ( (inpw <AD_ISR) & 0xF800) >> 11) < c) ; x++) 

if (X == AD_WAIT) 
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ad_f lag = AD_ F I FO_COUNT_ ERROR ; 

/* Send non-specific EOI to Interrupt Controller */ 
outpw ( 0xFF22 , 0x8000); 



return; 

} 

if (p == 0) /* 

{ 

inpw (AD_FIFO) ; 
ad__values [0] [0] 
ad_values[0] (1] 
ad__values (0] [2] 
ad_values[0] (3] 
ad_values[0] (4] 



else if (p < 32) /* 

{ 

inpw (AD_FIFO) ; 
ad_values [p] [0] 
ad_values[p] [1] 
a devalues [p] [2] 



0th period has all six A/D samples */ 

/* discard - double EPS reading */ 

= inpw ( AD_FIFO) Sc 0x0 FFF; /* EPS */ 

= inpw(AD_FIFO) Sc OxOFFF ; /* TMUXA */ 

= i npw ( AD_FI FO ) & OxOFFF; /* TMUXB */ 

= inpw ( AD_FIFO) Sc OxOFFF; /* DCS */ 

= inpw (AD_FIFO) Sc OxOFFF; /* Modem */ 



1st - 31st periods have 4 A/D samples */ 

/* discard - double EPS reading */ 

= inpw (AD_FIFO) Sc OxOFFF; /* EPS */ 

= inpw (AD_FIFO) Sc OxOFFF; /* TMUXA */ 

= inpw(AD_FIFO) Sc OxOFFF; /* TMUXB */ 



else /* 

{ 

inpw (AD_FIFO) ; 
ad__values [p] [0] 

I 



remaining periods have only 2 A/D sample */ 

/* discard - double EPS reading */ 

= inpw (AD_FIF0) Sc OxOFFF; /* EPS */ 



/************************** ****/ 

/* Check Current Direction Sensing */ 
/***********************************/ 

/* Was there a battery current reading in EPS ? */ 
if (ad_sch_eps [p] [0] == CUR_DIR) 

{ 

/* Read the direction. */ 

pcbr_m(EPSl, 1, temp) /* Port 5 of the EPS */ 

/* Was it Battery A or B ? */ 

if (ad_sch_eps [p] [1] == 0x90) /* Port 3 tells MUX selection */ 
negative_current [p] = (temp Sc 0x01) ? FALSE : TRUE; 

else 

negative_current [p] = (temp Sc 0x02) ? FALSE : TRUE; 

} 



/**********************************/ 

/* Setup via PCB for new readings */ 
/*****★★****•******•*••************/ 

/* Has a complete set of data been read? Ready to start over? */ 

p++; 

if (p >= NUM_PER I ODS ) 

{ 

P - 0; 

samples ready • TRUE; 

} 

period = p; 



/* PCB commands for the MUXes */ 
if (p < 32) 

{ 

pcbw_m (TMUXA 0 . C, Ox 1 0 ♦ p) 
pcbw_m (TMUXBC . C. Cx 1 0 *p) 

} 

/* PCB commands for the EPS •/ 

if (ad_sch_eps Ip) (1) j- NOT_USED) /* Program EPS Port 3 ? */ 

( 

pcbw_m(EPS0, 3, ad_sch_eps [p] [1]) 

} 



/* There is always something sent to EPS Port 1 */ 
pcbw_m(EPS0, 1, ad_sch_eps (p] [2] ) 



/A*****************************/ 
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/* Setup A/D for new readings */ 

/ ******** **..*.**♦.******/ 



outpw (AD_CONFIG, 0x0002); /* RESET, point to RAM 00 */ 

/* Wait for RESET bit to clear */ 

for (x = 0; (x < AD_WAIT) && ( inpw (AD_CONFIG) & 0x0002); x++) 

if (x == AD_WAIT) 

{ 

ad_£lag - AD_RESET_ERROR ; 

/* Send non-specific EOI to Interrupt Controller */ 

OUtpw (0xFF22, 0x8000); 

return; 

} 



if (p == 0) 
{ 



outpw (AD_INSTR0 , 


0XF208) 


/* 


outpw (AD_INSTR1 , 


0XF208) 


/* 


outpw (AD_INSTR2 , 


0xF2 10) 


/* 


outpw (AD_INSTR3 , 


0xF218) 


/* 


outpw (AD_INSTR4 , 


0xF200) 


/* 


outpw (AD_INSTR5, 


0xF2 04 ) 


/* 


OUtpw (AD_INSTR6, 


0XF202) 


/* 



Outpw (AD_IER, 0x3004); 
c = 6 ; 

} 

else if (p < 32) 

{ 



outpw (AD_INSTR0, 


0xF2 08 ) ; 


/* 


outpw (AD_INSTR1 , 


0xF208 ) ; 


/* 


outpw ( AD_INSTR2 , 


0XF210) ; 


/* 


outpw (AD_INSTR3 , 


0xF2 1 8 ) ; 


/* 


outpw (AD_I NSTR4 , 


0XF202) ; 


/* 



outpw (AD_IER, 0x2004); 

C = 4 ; 

} 

else 

( 

outpw (AD_INSTR0, 0xF208) ; /* 

OUtpw (AD_INSTR1 , 0xF2 08 ) ; /* 

OUtpw (AD_INSTR2, 0XF202); /* 

outpw (AD_IER, 0x1004) ; 

C = 2; 

} 



EPS */ 

EPS */ 

TMUX A */ 

TMUX B */ 

DCS */ 

Modem */ 

Pause *1 

/* interrupt w/ 6 samples in FIFO */ 



EPS */ 

EPS */ 

TMUX A */ 

TMUX B */ 

Pause */ 

/* interrupt w/ 4 samples in FIFO */ 



EPS */ 

EPS */ 

Pause */ 

/* interrupt w/ 2 sample in FIFO */ 



Calibration */ 



outpw (AD_CONFIG, 0x0008); /* Full 

/* Wait for CALIBRATION bit to clear */ 
for (x = 0; (X < AD_WAIT) && (inpw (AD_CONFIG) & 0x0008); x++) 

if (X == AD_WAIT) 

{ 

ad_f lag = AD_CALIB_WAIT_ERROR; 



} 



/* Send non-specific EOI to Interrupt Controller */ 

outpw (0xFF22, 0x8000); 

return,- 



outpw (AD_CONFIG, 0x0001); /* start sequencer */ 

/* Send non-specific EOI to Interrupt Controller */ 
OUtpw (0XFF22, 0x8000); 

} /• End of ad_isr() */ 



/ 



it******************************************************** 



void ad_check() 

Check ad_flag for error condition. 

************ ***************************************************************/ 



void ad_check (void) 



{ 

static int 
static int 
static int 
DWORD 



reset_count = 0 ; 
fifo_count = 0; 
calib_count = 0; 
reset_time = 0L; 
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DWORD 

DWORD 

DWORD 



f if o_time 
cal ib__time 
t ; 



OL; 

OL; 



t = get_elapsed_time { ) ; 
switch (ad_f lag) 

( 

case AD_NO_ERROR: 
break ; 

case AD_RESET_ERROR : 

/* This is a bad problem with no real fix. try initializing again. */ 
if { (++reset_count > 10) && (t - calib_time < ONE_MINUTE) ) 

{ 

/* Force a shutdown */ 

) 

ad_init ( ) ; 
break; 

case AD_FIFO_COUNT_ERROR ; 

/* There was a count error trying to access the FIFO in ad_isr{) . 

* Try initializing the A/D again and try acquisition. 

*/ 

if { (++fifo_count > 10) && (t - calib_time < ONE_MINUTE) ) 

{ 

/* Force a shutdown */ 

} 

ad_init {) ; 
break; 

case AD_CALIB_WAIT_ERROR: 

/* This occurs only within ad_init{). It is a bad problem with no 

* real fix. 

*/ 



/* Force a shutdown */ 
break; 

default : 

break; 

} 

ad_f lag = AD_NO_ERROR; 

} /* End of ad_check{) */ 

/***************************★**★***************************★**********★******* 

* 

* void ad_collect() 

★ 

* Take all raw sensor readings from the last entire round of A/D collecting 

* and organize into the telemetry structure within the .sensors structure. 

* 

* This organization takes data collected in sequence from the A/D ISR, and 

* places it into the .sensors structure which is organized per sensor type. 

* 

* This is simplified by using ad_collect__table [) which has an entry for 

* every A/D acquisition that took place in the last A/D sweep. 

* 

******************************************************★*★*******************/ 



void ad_collect (void) 

{ 

int i ; 
int pos ; 



for {i = 0; i < NUM_PERIODS ; i++) 

{ 

if (i == 0) 

{ 

/* DCS t Modem Temps, EPS, TMUXA, and TMUXB readings are available */ 
tlm . sensors . tmp [0] = ad_values ( 0] [3] ; 
tlm. sensors . tmp [l] = ad_values [0] [4} ; 

/* Read EPS below. ... */ 

tlm. sensors . ts [01 = ad_values [0] [1] ; /* TMUXA */ 

tlm. sensors. ts [I] = ad_values [0] [21 ; /* TMUXB */ 

} /* End of IF (i « 0) */ 
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else if (i < 32) 

< 

/* Read EPS below */ 

/* EPS, TMUXA, and TMUXB readings are available */ 
tlm . sensors . ts [ i *2 ] = ad_values[i] [1]; /* TMUXA */ 

tlm. sensors . ts [ ( i *2 ) +1] = ad_values [i] [2] ; /* TMUXB */ 

} /* End of IF (i < 32) */ 

/* All periods have an EPS reading, move it */ 
pos = ad_collect_table [ i ] .position; 
switch (ad_collect_table [i] .type) 

< 

case V_B ATT A : 

tlm. sensors .vbatta tpos] = ad_values [ i ] [0] ; 
break; 

case V_BATTB : 

tlm. sensors. vbattb [pos] = ad_values [i] [0] ; 
break; 

case V_BUS: 

tlm. sensors .vscbus = ad_values[i] [0] ; 
break; 

case I_BATTA: 

tlm. sensors . ibatta [pos] = ad_values [ i] [ 0] ; 
if (negative_current [i] ) 

tlm. sensors. ibatta [pos] |= 0x8000; 
break; 

case I_BATTB : 

tlm. sensors . ibattb [pos] = ad_values[i] [0] ; 
if (negative_current [i] ) 

tlm. sensors . ibattb [pos] |= 0x8000; 
b reak ; 

case I_BUS: 

tlm. sensors. iscbus [pos] = ad_values [i] [0] ; 
break; 

case I_SOLAR: 

tlm. sensors. isolar [pos] = ad_values [i ] [0] ; 
break; 

default: /* ERROR */ 



break; 

} /* End of SWITCH (ad_collect_table [i] . type) */ 

} /* End of FOR */ 

samples_ready = FALSE; /* flagged by ad_main_isr ( ) - waiting for next A/D 

} /* End of ad_collect() */ 

End of ad.h ad.c 
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bcm.h bcm.c 



/********************★*********★********************************************** 

* 

* BCM . H 

* Battery Charge Monitor for Pansat 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 

* + + 

* 29 Jan 1997 Jah Creation 

* 

**********************★***+***+******************+**************************/ 



# de f ine BCM_V_TH_STE PS 5 

# define bcm_NUM_bats 2 
#def ine BCM NUM CELLS 9 



/* # of looksups in the voltage threshold (vs. 
* temperature) lookup table 
*/ 

/* # of batteries */ 

/* cells/battery */ 



# define BCM_NUM_MODES 3 



/* Low, Standby, and Normal operation modes */ 



/* Power Use Modes determined by charge states of the batteries */ 
# define BCM_MODE_LOW 0 

# de f i ne BCM_MODE_STANDBY 1 
# define BCM MODE_NORMAL 2 



/* Values to define the battery which is online and target (charging) . */ 
# define BAT_A 0 

# define BAT_B 1 

# define BAT_NONE 2 

/* Battery Controls */ 

# define CTRL_TRI C KLE 0x01 
#def ine CTRL_ONL I NE 0x02 

# define CTRL_D IS CHARGE 0x04 
# define CTRL_CHARGE 0x08 

/* Operational modes, depending on state of batteries */ 

# define MODE_LOW BCM_MODE_LOW 

#def ine MODE_STANDBY BCM_MODE_STANDBY 
# define MODE NORMAL BCM MODE NORMAL 



/* This structure holds all of the BCM variables which includes all of the 

* charge state history variables as well as variables which are used to 

* make decisions within the BCM. 



* The following structure is used by other modules to access the BCM states 

* by using the void bcm_info (bcm_info_struct *info) function. 

•/ 

typedef struct bcm_info 

{ 

int count ( BCM_NUM_BATS ] ; 

f loa t cap ( BCM_NUM_BATS] ; 

int online; 

int target; 

i nt mode ; 

int dod_detect; 

int eclipse; 

unsigned long int timer; 

int online_switch; 

WORD control [BCM_NUM_BATS] ; 



/* reconf igurable variables which affect charging decisions */ 



float 


dod (BCM_NUM_BATS] ; 


float 


temp_max ; 


int 


count_max; 


float 


over_int ; 


float 


cap_max [BCM_NUM_BATS] ; 


float 


efficiency (BCM_NUM_BATS] ; 


float 


v_threshold [BCM_NUM_BATS] (BCM_V_TH_STEPS] 
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float 



vth_low [BCM_NUM_BATS] ; 
unsigned long int over_times [BCM_NUM_MODES] 
} bcm_info_struct ; 



/* This structure holds all of the BCM variables which can be modified by other 

* modules when it is desired to change the parameters of the BCM . 

* The following structure is used in conjunction with the BCM function named 

* bcm_set_params (bcm_params_struct *params) . 

*/ 

typedef struct bcm_params 

( 



int 


dod [BCM_NUM_BATS] ; 


float 


temp_dt ; 


float 


temp_max; 


int 


count_max ; 


float 


ove r_int ; 


float 


cap_max [BCM_NUM_BATS] ; 


float 


efficiency [BCM_NUM_BATS] ; 


float 


V_threshold t B CM_NUM_B ATS ] [BCM_V_TH_STEPS] 


float 


vth_low [ BCM_NUM_BATS ] ; 


unsigned 


long int over_t imes [BCM_NUM_MODES] ; 


bcm_params_ 


struct ; 



/* Include specifics for BCM.C */ 

#ifdef BCM 

/* Redefine shorthands for BCM routines */ 

#def ine NUM_BATS BCM_NUM_BATS 

#def ine V_TH_STEPS BCM_V_TH_STEPS 

#def ine NUM_MODES BCM_NUM ^MODES 

# define NUM_CELLS BCM_NUM_CELLS 

#def ine NUM CELL TEMPS 10 



/* Charge state history */ 



#def ine 


CS_ 


BAD 


-3 


#def ine 


cs_ 


UNKNOWN 


-2 


#def ine 


cs] 


_FORCE_OVER 


-1 


#def ine 


cs' 


’overcharged 


0 



/ * positive charge state values are counts (the # of re-charge cycles on a battery */ 



/* Initial parameters */ 

#def ine DOD 0.40/* 
#def ine temp_LOW 5.0 /* 
#def ine TEMP_MAX 35.00 /* 
#def ine COUNT_MAX 5 /* 
#def ine OVE REINTEGRATE 1.20/* 

#define CAP_A 4.40/* 
#def ine CAP_B 4.40/* 
#def ine EFF_A 0.83/* 
#def ine EFF_B 0.83/* 



Depth of Discharge (% BELOW 100%) */ 

Minimum temperature before heating batteries */ 
Maximum temperature for charging */ 

# of REcharges before OVERcharge */ 

OVER Current integration allowed 

* (safety check) before stop charging */ 
Battery A A*hr capacity */ 

Battery B A*hr capacity */ 

Battery A Efficiency */ 

Battery B Efficiency */ 



/* Timers (in seconds) for overcharge checking */ 
#def ine TIMER_L0W (2.5L * SECS_PER_HOUR) 

#def ine TIMER_STANDBY (3.5L * SECS_PER_HOUR) 

#def ine TIMER NORMAL (4.5L * SECS PER HOUR) 



#def ine TRICKLE_TIME FIVE_MINUTES 



/* This is the time set on target_time [] to indicate that a battery has not 
* been charged yet. 

*/ 

#def ine MAX_T ARG ET_T I M E ((unsigned long int) 4294967296) 



#define VTH_LOW_BATA 1.20/* Undervoltage threshold to trigger overcharge */ 

#def ine VTH_LOW_BATB 1.20 

/* Low cell voltages that trigger battery preference decisions */ 

#define VLOW 0.90/* Minimum cell voltage for "healthy" battery */ 

#define VMAX_LOW 1.10/* Minimum Maximum cell voltage for charged battery */ 



static void 
static int 
static void 
static int 



bcm_charge (void) ; 
bcm_check_condit ions (void) ; 
bcm_mode (void) ; 
bcm_in_eclipse (void) ; 
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static 


void 


static 


void 


static 


void 


static 


void 


static 


int 


static 


void 


static 


int 


static 


void 


static 


float 


static 


float 


void 





bcm_online (int preferred); 
bcm_over charge (void) ; 
bcm_recharge (void) ; 
bcm_set_params (bcm_params_struct 
bcm__set_switches (void) ; 
bcm_target (int preferred) ; 
bcm_tbound (signed char t) ; 
bcm_v_max_clear (int battery) ; 
bcm_v_max_min (int battery); 
bcm_v_min (int battery); 
bcm_tlm_update (void) ; 



*params) ; 



#endif 



/* Includes for all modules (except BCM.C) referencing this BCM.H */ 
#if ndef BCM 

extern int bcm_get_mode (void) ; 
extern void bcm_info (bcm_inf o_struct *) ; 
extern void bcm_init (void) ; 
extern void bcm_main (void) ; 

extern void bcm_set_j?arams (bcm_params_struct *) ; 
extern void bcm_tlm_update (void) ; 

#endif 



* BCM.C 



* Battery Charge Monitor for Pansat 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



* 29 Jan 1997 Jah 

* 7 Feb 1997 Jah 

* 24 March 1997 Jah 



Creation 

Remove Delta-Temperature checks in charging. 

Use get_elpased_time ( ) instead of get_time(). 
Check for trickle charge time for both batteries. 



****************************************************************************/ 



#include <stdio.h> 
#include <stdlib.h> 

#include "gen_defs.h" 



#include "clock. h" 
#include "pcb.h" 

#define BCM 

^include "bcm.h" 
#undef BCM 

#include "ad .h" 
#include "dcs.h" 
#include "eps.h" 
#include "tlm.h" 



/* Assume unknown charge state for both batteries (i.e. dead) */ 
static int count [NUM_B ATS] = {CSJJNKNOWN, CS_UNKNOWN } ; 



/* Assume no capacity for both batteries */ 



double 


cap [NUM_BATS] = {0.0, 0. 


o); 


int 


online = 


BAT_N0NE 


int 


target = 


BAT_N0NE 


int 


mode = MODE LOW; 


int 


dod^detect = 


FALSE; 


int 


eclipse = 


TRUE ; 


unsigned 


long int over_timer = 0L; 




int 


online_swi tch = 


FALSE ; 


WORD 


control [BCM_NUM_BATS] = {0, 


o}; 



/* Time since a battery was choosen as a Target. This is originally set to 
* "infinity", so that the BCM knows that this parameter has not been used. 
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* Otherwise, this timer indicates how long a target has been charging. 

* This variable is only used when a battery’s charget state history is 

* UNKNOWN (e.g. deployment, reset, or data corruption). 

*/ 

static DWORD target_time [NUM_BATS] = (OL, OL}; 

static float vbatt_avg [NUM_BATS] = {0.0, 0 . 0 } ; /* Battery Cell Voltage averages */ 

static signed char t_avg [NUM_BATS] = {0.0, 0.0}; /* Battery Cell Temperature averages */ 

/* Record of growing Maximum cell voltages of a battery while it is charging. 

* This information is used after the battery is charged to determine if 

* the lowest maximum voltage of these cells in a battery are below an 

* acceptable value for a battery which is in good condition. 

*/ 

static float v_max_ce list NUM_B ATS } [NUM_CELLS] = 

{ 

(o, 0, 0, 0, 0, 0, 0, 0, o}, 

(0, 0, 0, 0, 0, 0, 0, 0, 0} 

}; 



/* reconf igurable variables which 
static float dod [NUM_BATS] 
static float temp_max 
static int count_max 

static float over_int 
static float cap_max [NUM_BATS] 
static float ef f iciency [NUM_BATS] 
static float vth_low [NUM_BATS] 



affect charging decisions */ 

= {DOD, DOD}; 

= TEMP_MAX; 

= C0UNT_MAX ; 

= OVER_INTEGRATE ; 

= { C AP_A , CAP_B } ; 

= { EFF_A, EFF_B } ; 

= { VTH_L0W_B ATA , VTH_LOW_BATB } ; 



#def ine T_L0W -5.0 
# define T_HIGH 35.0 

static float v_threshold [NUM_BATS] [V_TH_STEPS] = 

( 

(1.46, 1.46, 1.46, 1.46, 1.46}, 

{1.46, 1.46, 1.46, 1.46, 1.46} 

b 



static unsigned long int over_times [NUM_MODES] = 

! 

TIMER_L0W, TIMER_STANDBY, TIMER_NORMAL 

b 



/******* 

/★**#*** 



************★******************/ 

*******************************/ 



/ 



****************************************************** 



void bcm main (void) 



****************************** j 



void bcm_main (void) 

{ 

int preferred; 



/* get new telemetry */ 
bcm_tlm_update ( ) ; 

/* Determine if in eclipse */ 
eclipse = bcm_in_eclipse () ; 

/* Determine preferred battery */ 
preferred = bcm_check_conditions () ; 

bcm_online (preferred) ; 
bcm_target (preferred) ; 
bcm_mode ( ) ; 
bcm_charge ( ) ; 

if (bcm_on) 

bcm_set_switches ( ) ; 

} /* End of bcm_main() */ 



/ 



******************************************** 



* void bcm_charge (void) 



Determine if charging is to occur. 
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************************** 



* * 



*****/ 



void bcm_charge (void) 

( 

if (eclipse == FALSE) 

{ 

if (target != BAT_NONE ) 

{ 

/* There is a Target, and the spacecraft is NOT in eclipse. 
* What type of charging does the Target require? 



*/ 

if ( (count [target] < CS_OVERCHARGED ) || (count [target] >= count_max) ) 

bcm_overcharge (> ; 



else 



bcm_recharge () ; 



} 

} /* End of bcm_charge() */ 

/****************************************************♦************************ 



* int bcm_check_condit ions (void) 

* 

* Determine condition of batteries and wether or not there is a preferred 

* battery to use. 

* 

****************************************************************************/ 



#def ine WARM -2 

#def ine COOL -1 

# define NUM_COND_STATES 5 



int 

( 



bcm_check_conditions (void) 



int 

int 

int 

static 



static 



not_op [NUM_BATS] ; 
preferred; 
i, a, b; 



int action [NUM_COND_STATES] [NUM_COND_STATES] = 
{ 



{WARM, 


BAT_A, 


BAT__A, 


BAT_A, 


BAT_B } 


{BAT__B, 


WARM, 


BAT_A, 


B AT_B , 


BAT_B } 


{bat_b. 


B AT__B , 


BAT_N0NE , 


BAT__B , 


BAT_B } 


{bat_b, 


B AT_A , 


BAT_A, 


COOL, 


BAT_B } 


{bat A, 

}; 

signed char 


B AT_A , 


BAT_A, 


BAT_A, 


COOL} 


condition [NUM_COND_ 


STATES] = 


{-10, 0, 



35, 45, MAX_CHAR } ; 



/* start by assuming both batteries are usable */ 
not__op [BAT__A] = not_op [BAT_B] = FALSE; 

/* First, check if there is a target battery */ 
if (target != BAT_NONE) 

{ 

/* Want to look at the lowest cell voltage, but only after the target 

* has been trickle charged, and then normal charged for the fixed 

* length of times . 

*/ 

if (get__elapsed_time () > target__time [target] + TRICKLE_TIME) 

{ 

/* Make sure lowest cell voltage is above a certain amount. */ 
if (bcm__v_min( target) < VLOW) 
no t_op [target] = TRUE; 

} 

) 



/* Now, check if any battery has already been charged at least once. If 

* so, and the battery is NOT the target (being charged) , then check the 

* lowest of the maximum cell voltages while the battery was charging. This 

* minimum of the maximum cell voltages must be above a certain amount. 

*/ 

for (i = 0; i < NUM_BATS ; i++) 

{ 

if (i ! = target) 

{ 

if (count [i] ! * CS_UNKNOWN) 

{ 

/* Check minimum of the maximum cell voltages */ 
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} 



} 



i f ( bcm_v_max_mi n ( i ) < VMAX_LOW ) 

not_op[i] = TRUE; 



/* If there is a preferred battery, then indicate. Otherwise, do temperature 
* tests to still see if there is a preferred battery. 

V 

preferred = not_op [BAT_A] ? (not_Op [BAT_B] ? BATJNONE : BAT_B) : (not_op [BAT_B] ? BAT_A : BAT_NONE) ; 

if (preferred == BAT_NONE) 

( 

/* For each battery, find which temperature category it falls within */ 
for (i - 0; i <= NUM_COND_ STATES - 1; i++) 

{ 

if (t_avg [BAT_A] < condition [i] ) 
break ; 

} 

a « i ,- 

for (i = 0; i <= NUM_COND_STATES - 1; i + + ) 

{ 

if (t_avg [BAT_B] < condition [ij ) 
break; 

) 

b = i; 

switch (action [b ] [a]) 

{ 

case WARM: 

preferred = ( t_avg [BAT_A] >= t_avg [BAT_B] ) ? BAT_A : BAT_B ,- 
break; 

case COOL: 

preferred = ( t_avg [BAT_A] <= t_avg [BAT_B] ) ? BAT_A : BAT_B; 
break; 

case BAT_A: 

preferred = BAT_B; 
break; 

case BAT_B : 

preferred = BAT_B; 
break ; 



case BAT_NONE : 

preferred = BAT_NONE; /* no preference */ 
break; 



} 



} 



default: /* error */ 

preferred = BAT_NONE; 



return (preferred) ; 

} /* End of bcm_check_conditions ( ) */ 

/++++**++++*+********+***************+**************************************** 

* 

* int bcm_get_mode (void) 

★ 

* Report which operation mode the batteries are capable of supporting. 

* 

+*+**++**+*++*****+*++*+***+**+**************+******************************/ 

int bcm_get_mode (void) 

{ 

return (mode) ; 

} /* End of bcm_get_mode ( ) */ 



z***************************************************************************** 



* int bcm_in_ecl ipse (void) 

* Determine if the spacecraft is in eclipse. 



*****************************************+**********************************/ 



135 



int bcm_in_eclipse (void) 

{ 

if ( tlm_cnv. iscbus < 0.050) 
return (TRUE) ; 

else 

return (FALSE) ; 

} /* End of bcm_in_eclipse */ 



/*************★*************************************************************** 

* 

* void bcm_info (*bcm_info_struct info) 

* 

* Return information that describes the state of the BCM. 

* 

♦A-**************************************************************************/ 

void bcm_info (bcm_info_struct * info) 

( 

register int i, j; 



info->online 
inf o->target 
inf o->mode 
info- >dod_detect 
inf o- >eclipse 



= online; 

= target; 

= mode; 

= dod_detect; 

= eclipse; 



/* This is for the elased overcharge timer for the target battery */ 
if (over_timer != 0L) 

info->timer = get_elapsed_time ( ) - over_timer; /* duration of overcharging */ 

else 

info->timer = 0L; /* indicate not in use */ 



info- >online_switch = online_switch; 

inf o- >temp_max = tempjmax; 
info->count_max = count_max; 
inf o->over_int = over_int; 

for (i = 0; i < NUM_BATS; i++) 

( 

info->count [i] = count [i] ; 

info->cap[i] = cap[i]; 

info- >control [i] = control[i]; 

info- >cap_max [i] = cap_max[i]; 

inf o->ef f iciency [i] = ef f iciency [i] ; 

info->vth_low [i] * vth_low[i]; 

info->dod[i] = dod[i]; 

for (j = 0; j < V_TH_STEPS; j++) 

info->v_threshold [i] [j] = v_threshold [i] [j] ; 

} 

for (i ® 0; i < NUM_MODES; i++) 

info- >over_times [i] = over_times [i] ; 

} /* End of bcm_info() */ 



/*Tt*************************************************************************** 



* void bcm^init (void) 

* 

* Initialize the BCM. This is used to force a reset of the BCM for example 

* when a data error has occurred and the charge state variables are no 

* not valid. 



****************************************************************************/ 



void bcm_i nit (void) 

( 

register int i, j; 

int preferred; 



/* Determine preferred battery */ 
preferred * bcm_check_condit ions 0 ; 
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if (preferred !« BAT_NONE) 

( 

/* There is a preferred battery due to environmental /battery 

* performance criteria. Use this battery regardless of 

* other charge state history information. 

V 

online = preferred,* 

) 

else 

online = B AT_A ; /* otherwise, default to Battery A */ 



target 


= BAT_N0NE ; 


mode = 


MODE_LOW ; 


dod_detect 


= FALSE; 


eclipse 


= TRUE; 


over_timer 


= 0L; 


online_swi tch 


= FALSE; 


t emp_max 


TEMP_MAX; 


count_max 


= C0UNT_MAX ; 


over_int 


OVER_ INTEGRATE ; 


cap_max[0] 


» C AP_ A ; 


cap_max [1] 


= CAP_B; 


ef f iciency [0] 


= EFF_A; 


ef f iciency [1] 


= EFF_B ; 


vth_low [0] 


= VTH_LOW_BATA 


vth_low[l] 


= VTH_LOW_BATB 


for (i = 0; i 


< NUM_BATS; i++) 



( 

/* Maximum cell voltages, recorded while battery is charging. */ 
for (j = 0; j < NUM_CELLS; j++) 
v_max_cells [i] [ j ) = 0.0; 

count [i] = C S_UN KNOWN ; 
capli] = 0.0; 

target_time [i] = 4294967295L; 
t_a vg [ i ] = 0.0; 
dod ( i ] = DOD; 

} 

overtimes [MODE_LOW] = TIMER_L0W; 

Over_ times [MODE_STANDBY] = TIMER_STANDBY; 
overtimes [MODE^NORMAL] = TIMER_NORMAL ; 

/* Turn OFF all battery controls, but leave the ONLINE battery online * / 
eps_batts_of f (online) ; 

} /* End of bcm_init() */ 



z***************************************************************************** 



* int bcmjmode (void) 

* 

* Determine which operation mode the batteries are capable of supporting. 



***************************************************************♦************/ 



void bcm_mode (void) 

{ 

register int other,* 



Other = (online == BAT_A) ? BAT_B : BAT_A; 

if (count [online] == CS_UNKNOWN) 
mode = M0DE_L0W; 

else if (count [other] == CS_UNKNOWN) 
mode = MODE_LOW; 

else if (cap [online] < cap_max [online] * (1 . 0 - dod [online] ) ) 

mode = (cap_max [other] < cap_max [other] * (1 . 0 - dod [other])) ? MODE_LOW : MODE_STANDBY ; 

else 

mode = (cap [online] < cap_max [online] * (1 . 0 - dod [online] ) ) ? MODE_STANDBY : MODE_NORMAL 
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} /* End of bcm_mode() */ 



/***+***********************★*********★**********************+*+★************* 



+ void bcm_online (void) 

* Determine which battery should be online. 



*******************★*********+*************★****+**+***+********************/ 



void bcm_online (int preferred) 

{ 

online_switch = FALSE; 



if (preferred 1= BAT_NONE ) 

{ 

/* There is a preferred battery due to environmental /battery 

* performance criteria. Use this battery regardless of 

* other charge state history information. 

*/ 

if (preferred != online) 
online_swi tch = TRUE; 

online * preferred; 

if ( (cap[online] <= cap_max [online] * (1 . 0 - dod [online] ) ) || 

(vbatt_avg [online] < vth_low [online] ) ) 
dod_detect = TRUE; 

return; 

) 



/* Is there already a battery online ? */ 
else if (online != BAT_NONE) 

< 

/* Has the voltage of the online battery dropped below its 
* low voltage threshold. 

*/ 

if ( (vbatt_avg [online] < vth_low [online] ) && (count [online] >= 0)) 

{ 

/* The online battery has charge history and is not 

* acknowledge as needing OVERCharge. Yet, its average 

* voltage has dropped below a voltage threshold, signifying 

* it has less capacity than expected. Therefore, force it to 

* be overcharged in its next charge cycle. 

*/ 

count [online] = CS_FORCE_OVER ; 

} 

/* Is the online battery below DOD ? */ 

if ( (cap [online] <= cap_max [online] * (1 . 0 - dod [online] ) ) || 

(vbatt avg [online] < vth_low [online] ) ) 

{ 

/* What is the Target? If there is already a Target, then 

* the Target must remain charging, and the Online battery must 

* remain online until the Target finishes charging. Therefore, 

* DOD has been reached and a temperature reference must be set 

* on the Target since charging will now occur at a quicker rate. 
*/ 

if (target !• BAT_NONE) 

{ 

/• There is a Target battery. Is this the first time this 

• (b#“low DOD) been detected? If so, mark the Target's 

• temperature for charging decisions. 

• 

it < ’ g >d detect ) 

d n! detect = TRUE; 

} 



else/* There is no Target, switch the online battery */ 

{ 

onl me switch «= TRUE; 
switch (online) 

{ 

case BAT_A: 

online - BAT_B ; 
break ; 
case BAT_B •. 

online = BAT_A; 
break; 
default : 
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/* This is an ERROR case and should never happen */ 
online = (cap [BAT_A] >= cap [BAT_B] ) ? BAT_A : BAT_B; 
break; 

) 

) 



} /* End of cap [online] .. . */ 

else/* enough capacity still, no action */ 

{ 

) 

} /* End of if (online != B AT_NONE ) */ 



else/* There is no online battery, choose one */ 

{ 

if (count [BAT_A] == CSJJNKNOWN) 

/* Battery A has no charge state history, how about Battery B? */ 
online = (count [BAT_B] == CS_UNKNOWN) ? BAT_A : BAT_B ; 

else/* A has charge state history, but what about B ? */ 

{ 

if (count [BAT_B] == CSJJNKNOWN} 
online = BAT_A ; 

else 

online = cap [BAT_A] >= cap [BAT_B] ? BAT_A : BAT_B; 

} 

/* Since a new battery has JUST been selected to become online, force 
* DOD detect to FALSE. 

*/ 

dod_detect = FALSE; 

} /* End of else (no online battery...} */ 

} /* End of bcm_online(} */ 



/•************************************************************* 



void be m_over charge (void} 

Perform charging on the Target using the OVERcharge method. 



*/ 



void bcm_overcharge (void} 

{ 

/* First, check to make sure the temperature of the Target is low enough. */ 

/* However, this ignored when first starting in case there was a hot-soak 

* on the spacecraft while in the shuttle bay which would cause the 

* spacecraft to be hot when ejected immediate cooling is expected. 

*/ 

if ( (t_avg [target] <= temp_max} || (get_elapsed_time ( } < ONE_HOUR} } 

{ 

/* Check so that the Target has not OVER Integrated, a safety check */ 
if (cap[target] < cap_max [target] *over_int) 

{ 

/* Has the Target reached the voltage threshold which is indicative 

* over beginning to reach the overcharge portion of the charge 

* cycle? If overcharge timer (overtime} is NOT zero, then it is 

* already active, which means the voltage threshold was already reached 

* earlier. 

*y 

if ( (vbatt_avg [target] < (v_threshold [ target] [bcm_tbound ( (signed char) t_avg [target] )] ) 
&& (over_timer =- (unsigned long int)0L}) ) 

{ 

/* Below the voltage threshold, continue charging */ 

/* no new action needed. */ 

} 

else/* OVERcharge */ 

{ 

if (over_timer == OL) 

{ 

/* Begin the overcharge, mark the time. Non- zero means the timer 
* is active. 

*/ 

over_timer = get_elapsed_time ( ) ; 

} 



else/* Already in overcharge, how is it going? */ 

( 
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if (get_elapsed_time ( ) >= (over_timer + overtimes [mode] ) ) 

{ 

count [target] = CS_OVERCHARGED ; 
cap [target] = cap_max [target] ; 
target = BAT_NONE; 
dod_detect = FALSE; 
over_timer = OL; 

) 

else 

{ 

/* Continue overcharge using NON DOD detect method. */ 
/* No new action needed. */ 

} 



} 

else/* OVER integration occured, stop the charging. */ 

i 

count [target] = CS_OVERCHARGED ; 
capltarget] = cap_max [ target] ; 
target = BAT_NONE; 
dod_detect = FALSE; 

} 



else/* TOO HOT */ 

{ 

/* Do not change capacity; however, it is ASSUMED that the battery charging 

* is not complete. So, the count is placed to CS_FORCE_OVER, so that 

* the next time this battery becomes the Target, it will be forced into 

* OVERcharge. 

*/ 

count [target] » CS_FORCE_OVER ; 
target = BAT_NONE ; 
dod_detect = FALSE; 

) 

) /* End of bcm_overcharge ( ) */ 



/***************************************************************************** 



* void bcm_recharge (void) 

* 

* Perform charging on the Target using the REcharge method. 

* 

*******************************#********************************************/ 



void bcm_recharge (void) 

( 



/* First, check to make sure the temperature of the Target is low enough. 
/* However, this ignored when first starting in case there was a hot-soak 

* on the spacecraft while in the shuttle bay which would cause the 

* spacecraft to be hot when ejected immediate cooling is expected. 

*/ 



if 

( 



( (t_avg [target] <= temp_max) || (get_elapsed_time ( ) < ONE_HOUR) ) 

if (capltarget] >= cap_max [target] ) 

( 

/* REcharged */ 

count [target] ♦+ ,* 

capltarget] = cap_max [target] ; 

dod_detect = FALSE; 

target = BAT_NONE ; 

} 



*/ 



else 



/* Continue recharge. No new action needed. */ 

) 

} 

else/* TOO HOT */ 

f 

/* Do not change capacity; however, it is ASSUMED that the battery charging 
* is not complete. So, the count remains the same as well. 

*/ 

target = BAT_NONE; 
dod_detect = FALSE; 
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) /* End if bcm_recharge ( ) */ 



/****** 



*****tt****t***«tt 



************************** 



* void bcm_set_params (bcm_params_struct *params) 

* 

* Allow BCM parameters to be modified. 

♦ 

void bcm_set_params (bcm_params_struct *params) 

{ 

register int i, j; 



temp_max = params->temp_max; 
count_max =~ params->count_max; 
over__int = params->over_int ; 

for (i = 0; i < NUM_B ATS ; i + + ) 

( 

c ap_max[i] = params- >cap_max [i] ; 

ef f iciency [i] = params->eff iciency [i] ; 

vth_low[i) = params->vth_low[i] ; 

for (j = 0; j < V_TH_STEPS ; j++) 

v_threshold [i] [j] = params->v_threshold [i] [j]; 

dod[i] = params- >dod [i] ,- 

) 

for (i = 0; i < NUM_MODES; i++) 

over_times [i] = params->over_times [i] ; 

} /* End of bcm_setjparams ( ) */ 



/********************************************+***+*****+*****+************++** 

★ 

* void bcm_set_swi tches () 

* 

* Set the battery switches according to all of the decisions made within one 

* pass through the BCM. 



**************************************♦********************+****************/ 



int bcm_set_swi tches (void) 

{ 

register int offline; 
register int not_target; 
int mode; 



/* Indicate which controls are set. Begin by setting all control status off */ 
Offline = (online == B AT_A ) ? BAT_B : B AT_ A ; 
control [online) * 0; 
control [of f line] = 0; 

not_target = (target »= BAT_A) ? BAT_B : B AT_A ; 



/* Turn on ONLINE switch for battery to be online. It doesn’t matter if 

* the online bateries are being switched (A->B) or (B->A) as long as you 

* FIRST turn ONLINE a battery, and THEN turn OFFLINE the other. 

*/ 

if (eps_set_battery (online, BAT_ONLINE ) == ERROR) 
return (ERROR) ; 

if (eps_set_battery (of f line, BAT_OFFLINE ) == ERROR) 
return (ERROR) ; 

control [online] | = CTR L_0 NL I NE ; 



if (eclipse) /* turn OFF battery controls, EXCEPT online */ 

eps_batts_of f (online) ; 

else if (target »= BAT_NONE) /* turn ON all that needs to be - except online (already done) */ 

{ 

/* CHARGING: Normal or Trickle ? */ 

/* Only do Trickle charging on a battery that has no charge state 
* history, and that has only been selected to be charged within 
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* the TRI CKLE_TIME time frame . 

*/ 

if { (count [target] == CS_UNKNOWN) && 

(get_elapsed_time () - target_time [target] ) < TRICKLE_TIME) 

( 

/* Make sure all normal charging switches are OFF */ 

if (eps_set_battery (not_target, BAT_CHARGE_OFF) == ERROR) 
return (ERROR) ; 

if (eps_set_battery( target , BAT_CHARGE_OFF) = = ERROR) 
return (ERROR) ; 

if (eps_set_battery (not_target , BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps_set_battery( target, BAT_TRICKLE_ON) == ERROR) 
return (ERROR) ; 

control [target] |= CTRL_TRICKLE ; 

} /* End of IF (Trickle Charging) */ 

else/* Time for Normal Charging */ 

( 

/* Make sure all trickle charging switches are OFF */ 

if (eps_set_battery (not_target , BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps_set_battery (target, BAT_TRICKLE_OFF) == ERROR) 
return (ERROR) ; 

if (eps_set_battery (not_target , BAT_CHARGE_OFF ) == ERROR) 
return (ERROR) ; 

if (eps_set_battery (target, BAT_CHARGE_ON) == ERROR) 
return (ERROR) ; 

control [target] |= CTRL_CHARGE ; 

} /* END of ELSE (Normal Charging) */ 

} /* End of ELSE (target != BAT_NONE ) */ 

else /* There is NO Target, so make sure all controls are OFF */ 

( 

eps_batts_off (online) ; /* turn OFF battery controls, except online */ 

} 



/* Now, check for the battery heaters */ 
mode = ( t_avg [BAT_A] < TEMP_LOW) ? ON : OFF; 

eps_set_power (PWR_HEATA, mode); 

mode = ( t_avg [BAT_B] < TEMP_LOW) ? ON : OFF; 

eps_set_power (PWR_HEATB, mode) ; 

} /* End of bcm_set_switches ( ) */ 



****************************************************************** 



* void bcm_target (void) 

* Determine which battery should be (targeted) to charge, if any. 
•♦♦•♦♦♦******************+**+**++*******************************************/ 



void bcm_target (int preferred) 

{ 

if (preferred != BAT_NONE) 

( 

/* There is a preferred battery to set as the target due to 
* environmental and battery performance criteria. 



/* Is there a target battery already, and is it the same as the 

* preferred? If so, do not interrupt (restart) the target 

* selection process. 

V 

if (preferred .'= target) 

{ 

if (count [preferred] == CS_UN KNOWN) 

{ 

target = preferred; 
cap [target] = 0.0; 

} 



== CS_FORCE_OVER) 
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else if (count [preferred] 



target = preferred; 



else if (cap [preferred] < cap_max [preferred] * (1 . 0 - dod [preferred] ) ) 
target = preferred; 

/* else, the preferred battery is not ready to charge - leave it */ 

if (target != B AT_NONE ) 

( 

/* zero out the cell voltage maxes */ 
bcm_v_max_clear (target) ; 

over_timer = OL; /* indicate just determined the target */ 

/* this is the overcharge timer */ 

target_time [target] = get_elapsed_time () ; 



} 



} 



} 



else if (target == BAT_NONE) 

( 

/* There is no target, try to choose one if appropriate. */ 
if (count [BAT_A] == CS_UN KNOWN ) 

( 

/* A has no charge state history, it is the Target; however, 
* if B is also the same, mark its charge history likewise. 
*/ 

if (count [BAT_B] == CS_UNKNOWN) 
cap [BAT_B) = 0.0; 

target = BAT_A ; 
cap [BAT_A] = 0.0; 

} 

/* How about B ? */ 

else if (count [BAT_B] == CS_UNKNOWN) 

{ 

/* Battery B has no charge state history, but A does. */ 
target = BAT_B ; 
cap [BAT_B) = 0.0; 

} 



else 

( 

/* Does A need to be forced to overcharge ? */ 
if (count [BAT_A] == CS_FORCE_OVER) 
target = BAT_A ; 

/* A does not need a overcharge forced, how about B? */ 
else if (count [BAT_B] == CS_FORCE_OVER ) 
target = BAT_B; 



else/* Need to look at Capacities now in order to decide. */ 

{ 

if (cap IBAT_A] <= cap [BAT_B) ) 

target - (cap [BAT_A] <= cap_max [BAT_A] *(1.0 - dod [BAT_A) ) J ? BAT_A : BAT_NONE 



) 



else 



target = (cap [BAT_B] <= cap_max [BAT_B] *(1.0 - dod [BAT_B] ) ) ? BAT_B r BAT_NONE 



if (target != BAT_N0NE) 

( 

/* zero out the cell voltage maxes */ 
bcm_v_max_c 1 ear (target ) ; 

over_timer = 0L; /* indicate just determined the target */ 

/* this is the overcharge timer */ 



target_time [target] = get_elapsed_time ( ) ; 



} 



} /* End of IF (target == BAT_NONE) */ 



else 

{ 

/* The Target has ALREADY been previously choosen, leave it. */ 

} 
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} /* End of bcm_target() */ 



/***************************************************************************** 

* 

* int bcm_t bound ( float t) 

* 

* This funcion categorizies a temperature value into an index 

* for table lookup into the voltage vs. temperature table 

* 

* v_threshold [target ] [temperature] 

★ 

* to check if a 

* charging battery has reached the voltage threshold. 

* 

* Jah: optimize 

* 

****************************************************************************/ 



int bcm_tbound (signed char t) 

{ 

unsigned char range = (unsigned char) (T_HIGH - T_LOW) ; 
unsigned char dt = (unsigned char) ( range /V_TH_STE PS) ; 

signed char acc = (signed char)T_LOW; /* accumulator from T_LOW to T_HIGH in steps of dt */ 

register int i = 0; /* index corresponding to the temperature */ 



if (t >= T_HIGH) 

return (V_TH_STEPS - 1) ; 



else 

( 

while (t > acc) 

( 

i + + ; 

acc += dt; 

} 



return (i) ; 

) 



} /* End of bcm_tbound() */ 



/♦it*************************************************************************** 



void bcm_tlm_update ( ) 



#def ine BAT_A_TS0 2 

# define BAT_B_TS 0 12 



void bcm_tlm_update (void) 

{ 

unsigned register inti, j; 



WORD 

WORD 

int 

static DWORD 



a, b; 
ta, tb; 

na , nb ; 
t old = 



0 ; 



/* for dTime for Cap. calcs */ 



/* Voltages */ 

vbatt_avg [BAT__A] = tlm_cnv.vcellsa_avg; 
vba t t_avg [ BAT_B ] = tlm_cnv. vcellsb_avg; 



/* Now, update the maximum cell voltages */ 
for (j =0; j < NUM_CELLS; j++) 

if (v_max_cells [BAT_A] [j] < tlm_cnv. vcellsa [ j] ) 
v_max_ce 1 1 s [ B AT_A] ( j ] = tlm_cnv. vcellsa [j ] ; 
for (j =0; j < NUM_CELLS; j++) 

if (v_max_cells [BAT_B] [j] < tlm_cnv . vcellsb [ j ] ) 
v_max_cells [BAT_B] [ j ] = tlm_cnv .vcellsb [j); 



/* Capacities */ 

if ( tlm_cnv. ibatta < -0.020) 

cap [BAT_A] += tlm_cnv. ibatta* ( (double) ( tlm__record . etime - t_old) / (double) SECS_PER_HOUR) ; 
else if (tlm^cnv. ibatta > 0.020) 

cap [BAT_A] += eff iciency [BAT_A] *tlm_cnv. ibatta* ( (double) (tlm_record. etime - 
t_old) / (double) SECS_PER_HOUR) ; 
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if ( tlm_cnv. ibattb < -0.020) 

cap [BAT_B] += tlm_cnv. ibattb* ( (double) (tlm_record . etime - t_old) / (double) SECS_PER_HOUR) 
else if (tlm_cnv. ibattb > 0.020) 

cap [BAT_B] += eff iciency [BAT_B] *tlm_cnv. ibattb* ( (double) (tlm_record. etime - 
t_old) / (double) SECS_PER_HOUR) ; 
t_old = tlm_record. etime; 



/* Temperatures */ 

/* Get first average with ALL measurements */ 

for (ta =0, tb = 0, i = 0; i < NUM_CELL_TEMPS ; i++) 

{ 

ta += tlm_cnv. ts [BAT_A_TS0 + i] ; 
tb += tlm_cnv. ts [BAT_B_TS0 + i] ; 

} 

a = ta/NUM_CELL_TEMPS; 
b = tb/NUM_CELL_TEMPS ; 

/* Now, remove any measurements that are above/below 5 degrees */ 

for (na = 10, nb = 10, i = 0; i < NUM_CELL_TEMPS ; i++) 

( 

if ( ( tlm_cnv. ts [BAT_A_TS0 + i] >= (a + 5) ) || 

( tlm_cnv. ts [BAT_A_TS0 + i] <= (a - 5))) 

( 

ta -= tlm_cnv . ts [BAT_A_TS0 + i] ; 
na- - ; 

} 



if ( (tlm_cnv. ts [BAT_B_TS0 + i] >= (b + 5) ) j| 

(tlm_cnv. ts [BAT_B_TS0 + i] <= (b - 5) ) ) 

( 

tb -= tlm_cnv . ts [BAT_B_TS0 + i] ; 
nb- - ; 

} 

) 

/* Recompute the average */ 
if (na == 0) 

t_avg[BAT_A] = a; /* weird case - avoid divide by zero */ 

else 



t_avg[BAT_A] = ta/na; 



if (nb == 0) 

t_avg[BAT_B] = b; /* weird case - avoid divide by zero */ 

else 

t_avg[BAT_B] = tb/nb; 



} /* End of bcm_tlm_update () */ 



/♦♦♦************************************************************************** 



* void bcm_v_max_clear (int battery) 

* 

* Set the maximum cell voltages history all to zero in order to restart the 

* recording of maximum cell voltages for a particular battery. 

* 

****************************************************************************/ 



void bcm_v_max_clear (int battery) 

( 

register int i; 



for (i = 0; i < NUM_CELLS ; i++) 

v_max_cel Is [battery] [i] = 0.0; 

} /* End of bcm_v_max_clear () */ 

/******************************★********************************************** 



* void bcm_v_max_min(int battery) 

* 

* Return the minimum cell voltage of all of the recorded maximum cell 

* voltages for a particular battery. 

* 

****************************************************************************/ 



float bcm_v_max_min (int battery) 

( 

register int i; 
float x = 100.0; 



for (i = 0; i < NUM_CELLS ; i++) 
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if (v_max_cel Is [battery] [i] < x) 
x = v_max_cells [battery] [i] ; 



return (x) ; 

} /* End of bcm_v_max_min( ) */ 

/***★**★*★*★★*★*★****★★★*★★**★*★**************************************★**★★*** 

♦ 

* void bcm_v_min (int battery) 

★ 

* Return the minimum cell voltage from the current telemetry record of cell 

* voltages for a particular battery. 



****************************************************************************/ 



float bcm_v_min (int battery) 

( 

register int i; 
float x = 100.0; 



if (battery == BAT_A) 

for (i = 0; i < NUM_CELLS ; i++) 
if (tlm_cnv. vcellsa [i] < x) 
x = tlm_cnv .vcellsa [i] ; 

else /* Must be battery B * / 

for (i = 0; i < NUM_CELLS; i++) 
if (tlm_cnv. vcellsb [i] < x) 
x = tlm_cnv. vcellsb [i] ; 

return (x) ; 

} /* End of bcm_v_min() */ 

End of bcm.h bcm.c 
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clock.h, clock.c 

/*★******★★★**********★*★*★******************★***********•********************* 

* 

♦ CLOCK.H 

♦ 

* Real time clock for PANSAT 

♦ 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* Revision History: 



* Date Who What 

* + + 

* 8 March 1996 Jah Creation 

♦ 

**************************************************************************** ^ 



/* Tick intervals for day and time stamping */ 
#def ine SECS_PER_MIN 60L 

# define SECS_PER_HOUR (SECS_PER_MIN*60L) 

#def ine SECS_PER_DAY (SECS_PER_HOUR*24L) 

# define SECS_PER_YEAR (SECS_PER_DAY*365L) 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



THIRTY SECONDS 



(30L) 



ONE_MINUTE ( 1L*SECS_PER_MIN) 

TWO_MI NUTES ( 2L*SECS_PER_MIN) 

FIVE_MINUTES (5L*SECS_PER_MIN) 
TEN_MINUTES ( 10L*SECS_PER_MIN) 

ONE HOUR ( 1L* SECS PER HOUR) 



#ifdef CLOCK 

/* Timer2 is programmed to interrupt once every 1/60 second */ 
#def ine TICKS PER SECOND 60 



void interrupt far 

DWORD 

DWORD 

void set 



clock_isr () ; 
get_elapsed_time (void) ; 
get_time (void) ; 
time (DWORD) ; 



#endif 



#ifndef CLOCK 

extern void interrupt far clock_isr(); 
extern DWORD get_elapsed_time (void) ; 

extern DWORD get_time ( void) ; 

extern void se t_t i me (DWORD ) ; 

#endif 



♦ 

* CLOCK.C 

★ 

* Real time clock for PANSAT 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* * 

* Revision History: 

♦ ss:s=:s=s::s=r=== 

* Date Who What 

♦ + + 

* 8 March 1996 Jah Adoption from STAR'S clock.c 

♦ 

*******★**********★************★****★★★**★***★*★***★★★*★************★*******/ 



# include "gen_def s .h" 

#include "gen_apis .h" 

#def ine CLOCK 

#include "clock.h" 

#undef CLOCK 

#include "edac.h" 



static DWORD sec_count = 0L; 



/* total elapsed from time of startup */ 
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static DWORD base time 



OL; 



/* UTC offset uses sec_count */ 



DWORD icount = OL; 

/♦♦I*************************************************************************** 

* 

* clock_isr() 

* 

* This routine is invoked by Timer 2 (INT 13h) - the system clock tick 

* mechanism. tick_count is the total number of ticks since the real time 

* clock was initialized. 



************************************************ 



****★/ 



void interrupt far clock_isr() 

{ 

static unsigned int interval = 0; 



icount++; 

if (++interval == TICKS_PER_SECOND) 

{ 

interval = 0; 
sec_count++; 

/ * edac_ram_wash ( ) ; */ 

} 

/* Send non-specific EOI to Interrupt Controller */ 

OUtpw (0xFF22, 0x8000); 

} /* End of clock_isr{) */ 

/***************************************************★*******★*★*************** 



* DWORD get_elapsed_time (void) 

* 

* Return system up time in number of elapsed seconds. 



*************************************************************************♦**/ 



DWORD get_elapsed_time (void) 

{ 



return (sec_count) ; 

} /* End of get_elapsed_time () */ 

/******************************************************★***************★****** 

* 

* DWORD get_time (void) 

* 

* Return system time in number of elapsed seconds. Based on 1 Jan 1970. 

* 

****************************************************************************/ 

DWORD get_time (void) 

{ 

return (base_time + sec_count) ; 

} /* End of get_time{) */ 



/******************************************************************★********** 

* 

* void set_ti me (DWORD t) 

* 

* base_time maintains the date/time at which the clock was set to a specific 

* time. Thus, base_time + sec_count is the current time. While sec_count 

* maintains the elapsed time since startup. 

* 

ft***************************************************************************/ 



void set_time (DWORD t) 

{ 

base_time - t - sec_count; 
} /* End of set_time() */ 



End of clock.h, clock.c 
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cmd.h, cmd.c 

/**★+++*+++*+♦♦**+++*********+*++****♦**♦****♦*♦*++*****+++****+*+******+***** 

★ 

* CMD.H 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



******-********************************************************* 



*/ 



/*★+***+★++*★*******+*****+***+**★*+++***+*+++**+******★*++****+*+++**++*+**** 

★ 

* CMD.C 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 

* Date Who What 



* 19 Nov 1996 Jah Creation 

★ 

****+*♦ + *** + ****★*♦** + + + + **++ + ** + ***♦♦*****+*★***** + *****♦*♦** + **** + ***++***/ 



#include "gen_def s . h" 

#define CMD 

#include "cmd.h" 

#undef CMD 



typedef struct ack_packet 

{ 

BYTE cmd ; 

BYTE action; 



} acl_packet_struct ; 

typedef struct cmd_packet 

{ 

BYTE cmd; 



) 



/* Upcoming Command Typ 1 
#def ine CMD_CONFIRM 

#def ine CMD_CONTROL Cx5A 

#def ine CMD_EXEC CxA5 

#def ine CMD_GETP CxAA 

#def ine CMD_LOAD CxU 

#define CMD_MA'P Cx6 9 

# define CMD^RESET Cx96 

#def ine CMD_SETP Cx99 

#def ine CMD_STATUS CxOO 

#def ine CMD_SLOG_CLEA> CxCF 

#def ine CMD_SLOG_ KEA1 CxFO 

#def ine CMD_VERIFY CxFF 

#def ine CMD UNKNOWN 0x$€ 



from grounstation to spacecraft) 
OxSS 



: an actual command, but used in the 

* spacecraft ACK packet to identify the 

* type of command that was received. 

*/ 



/* Downgoing Action 


Types 


( f rom 


#def ine 


ACT_CONFIRM 




0x55 


#def ine 


ACT_NONE 


OxAA 




#def ine 


ACT_REPEAT 




0x66 


#def ine 


ACT_UN KNOWN 




0x99 
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/********************************************************★******* 



* cmd_exa mi ne ( ) 

+ 

****************************************************************************/ 



cmd_examine ( ) 

{ 



switch (in_packet->cmd) 

{ 

case CMD_CONFIRM : 

ack_packet->cmd = CMD_CONFIRM; 
ack_packet->action = ACT_C ONF I RM ; 
break; 

case CMD_CONTROL: 

ack_packet->cmd = CMD_CONTROL ; 
ack_packet->action = ACT_CONFIRM ; 
break; 

case CMD_EXEC: 

ack_packet->crad = CMD_EXEC; 
ack_packet->action = ACT_CONFIRM; 
break; 

case CMD_GETP: 

ack_packet->cmd = CMD_GETP; 
ack_packet- >action = ACT_NONE ; 
break ; 

case CMD_LOAD: 

ac k_packet->cmd = CMD_LOAD; 
ack_packet->action = ACT_NONE ; 
break; 

case CMD_MAP: 

ack_j>acket->cmd = CMD_MAP; 
ack_packet->action = ACT_NONE ; 
break ; 

case CMD_RESET: 

ack_packet->cmd = CMD__RESET ; 
ack_packet->action = ACT_CONFIRM; 
break; 

case CMD_SETP: 

ack_packet- >cmd = CMD_SETP; 
ack_packet->action = ACT_CONF IRM ; 
break; 

case CMD_STATUS : 

ack_packet->cmd - CMD_STATUS; 
ack_jpacket->action = ACT_NONE ; 

/* append telemetry */ 
break; 

case CMP SLOG CLEAR : 

ack_packet->cmd = CMD_SLOG_CLEAR ; 
ack_packet->action = ACT_CONF I RM ; 

/* delete all stored telemetry */ 
break ; 

case CMD_SLOG_READ : 

ack_packet->cmd = CMD_SLOG_READ ; 
ack_packet->action = ACT_NONE ; 

/* append first record of stored telemetry */ 
break; 

case CMD_VERI FY : 

ack_packet->cmd = CMD_VERI FY ; 

ack_j>acket->action = ACT_NONE; 

ack_packet->action = ACT_RE PEAT ; 
break; 

default: /* UNKNOWN */ 

/* Valid packet (CRC passed) , but command code is not valid */ 
ackjpacket- >cmd » CMD_UN KNOWN ; 
ack_j>acket->action = ACT_UN KNOWN ; 
break; 

) 
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/* Place the command in the history buffer */ 



/* Now, send the packet to the packet driver */ 
scc_send_packet (out_packet) ; 

} /* End of cmd_examine {) */ 

End of cmd.h, cmd.c 



dcs.h, dcs.c 

/************************♦**************************************************** 

* 

* DCS . H 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



* 2 Nov 1993 Jah Creation 

* 

****************************************************************************/ 

#if def DCS 

#endif 

#ifndef DCS 

extern int debug; 
extern int bcm_on; 

#endif 

/***************************************************************************** 

* 

* DCS . C 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 

* Date Who What 



* 2 Nov 1996 Jah Creation 

* 

****************************************************************************/ 



#include 


<stdlib.h> 


#include 


"gen_def s . h" 


#def ine 


DCS 


/* #include 


"dcs.h" */ 


#undef 


DCS 


# include 


"ad. h* 


# include 


"bcm.h" 


iinclude 


"clock .h" 


#include 


"eps . h" 


#include 


"pcb. h" 


#include 


"print . h" 


# include 


"see . h" 


#include 


" stpi . h" 


#include 


" terms h" 


#include 


" tlm. h" 



/* Function 


prototypes * 


static 


void 


boot loader ivoid) ; 


static 


void 


boot loader setup (void) 


static 


void 


inf t_Bcreen ivoid) ; 


static 


void 


etpi_only (void) ; 


static 


void 


stp i_or*ly_setup (void) ; 


static 


int 


U6e_Btpi(int *check) ; 


int debug = 


FALSE ; 


int bem on 


= TRUE; 



/** 



************************************************* 



* void main (void) 
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* This is the first routine of the C runtime which is called by the startup 

* (assembler) module. This routine is responsible for determining if the 

* Boot Loader should begin autonomous operations of the spacecraft or if 

* the STPI is being used and control should be passed to the monitor for 

* ground-like operations. 

* 

* To accomplish this, the PANSAT banner is sent out the asynch serial port 

* in the event that a ground computer is attached and will send a response 

* back to the spacecraft. Then this module waits upto 30 seconds for a 

* response via the ground computer. If there is one, control is transferred 

* to the STPI module, by-passing the Boot Loader. Otherwise, control is 

* transferred to the Boot Loader which begins autonomous operation of the 

* spacecraft. 

* 

* A two way flag is used to check for STPI use (and disabling of the Boot 

* Loader) so that it is unlikely that just a single flag gets its value 

* changed accidentally. 



*t*tttt*tttt*ttt*tt*tt*t*t*tt*****t**t*t*t**tt*ti***t***t***tt********t*****y 



void main (void) 

( 

int stpi_on = FALSE; 
int stpi_check = 0; 



/* Send PANSAT banner to the STPI */ 
info_screen() ; 

/* Jah - check time */ 
while (ge t_elapsed_time () < 5) 

{ 

stpi_on = use_stpi (&stpi_check) ; 
if (stpi_on St Sc (stpi_check == 0x5A) ) 

{ 

stpi_only () ; 

/* STPI Monitor to be used, ground station computer is ready . */ 

) 

/* If STPI Monitor was being used but control is transferred here, 

* then the command to begin the Boot Loader was given. Thus, let 

* the flow of control go to the WHILE loop below which starts the 

* Boot Loader. 

*/ 

} 



/* Spacecraft is to run autonomously * / 
while (TRUE) 

{ 

boot_loader () ; 

/* The Boot Loader subroutine will run forever unless a command is 

* given to disable the Boot Loader, in which case control will be 

* transferred to the statements below. Thus, assume the STPI Monitor 

* is to be run. 

*/ 

/* STPI Monitor */ 
stpi_only() ; 

/* The STPI Monitor subroutine will run forever unless a command is 

* given to begin the Boot Loader. In this case, transfer of 

* control will be given back to this WHILE loop, a new iteration 

* of the loop will begin, and automatically the Boot Loader 

* will be called. 

*/ 

} 

} /* End of main() */ 



/***************************************************************************** 



* void boo t_loader ( ) 

* 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦tttttttttttttttttttttttt*************************************/ 



void boot_loader (void) 

{ 

static int run_boot loader = TRUE ; 



/* Setup */ 
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/* boot_loader_setup ( ) ; */ 



while (run_boot_loader) 

{ 

check_tlm { ) ; 
bcm_main{) ; 

/* RF Listen */ 

/* Check/Process command (via RF link) */ 

/* RF Transmit */ 
monitor () ; 

/* Scenarios */ 

/* Reset Watchdog timer */ 

) 

} /* End of boot_loader ( ) */ 

/★★★************************************************************************** 

★ 

* voidboot_loader_setup ( ) 

★ 

★★★★************************************************************************/ 

void boot_loader_setup (void) 

{ 

ad_init 0 ; 

if (msu_check_f lash_tlm () == ERROR) 

( 

/* There was an error trying to locate an empty record */ 

) 

while ( ! samples_ready) 

/* make sure BCM charge state variables are setup correctly */ 
bcm_main() ; 

/* setup time to listen timer */ 

/* setup communications */ 

} /* End of boot_loader_setup ( ) */ 



/★♦♦♦★★★★♦*********************************^*********************^*^********** 

* 

* info_screen() 



****************************************************************************/ 



void inf onscreen (void) 

t 

home { ) ; 
clr { ) ; 

dprint ( "\nPANSAT System Controller: ")/ 
dpr int ( " %s\n" , DATE ) ; 

dprint ("80C186 running at 7.3728 MHz\n" ) ; 

dprint ("ROM : F000:0 - F000 : FFFF (64 k)\n"); 

dprint ("RAM : 0000:0 > 7000:FFFF (512 k)\n") ; 

dprint ("SCCA: (Cmd = 2 , Data = 6) Synchronous\n" ) ; 

dprint ("SCCB: (Cmd = 0, Data = 4) UART at 19.2 kbits/sec, 8Nl\n M ); 

serial_out (CTRL_W) ; 

} /* End of info_screen ( ) */ 



/******♦**********************************************★*********************** 



* void stpi_only () 

* 

***********•****************************+*****+*************+****************/ 
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void stpi_only (void) 

{ 

static int run_stpi_only = TRUE; 



while (run_stpi_only) 

{ 

check_tlm() ; 
monitor () ; 

} 

} /* End of stpi_only() */ 



/•************»****★★★★*«******★*******«****••*••**«*****«••*«**************** 



* void stpi_only_setup ( ) 

* ~ 

void stpi_only_setup (void) 

i 

/* bcm_of f ( ) ; */ 



pcb_write (EPSO, 0, 


0) ; 


/* 


Battery A control, TMUXA, HEATA */ 


pcb_write (EPSO, 2, 


0) ; 


/* 


Other subsystem power */ 


pcb_write (EPS1 , 2, 


0) ; 


/* 


Battery B control */ 



} /* End of stpi_only_setup () */ 



/***************************************************************************** 



* int use_stpi() 

♦ 

* Monitor the STPI for the sequence of characters that spell PANSAT. If 

* these are sensed in this order, then it is assumed that a ground computer 

* is attached to PANSAT and PANSAT is to go into the STPI monitor mode. 

* 

* This routine is called repetitively during the first 30 seconds and thus 

* keeps a record of any received characters from the SPTI and when six are 

* received does a compare to the character sequence "PANSAT". 



*****************»**********************************************************/ 



int use_stpi(int *check) 

( 

static char check_chars [6 ] ; /* 6 chars for PANSAT */ 

static int c = 0; /* index into check_chars (] */ 



if (is_serial_in() ) 

check_chars [c++] = serial_in(); 

if (c == 6) 

{ 

if (strncmp (check_chars, "PANSAT", 6) == 0) 

{ 

♦check = 0x5A; 
serial_out (0x5A) ; 
return (TRUE) ; 

i 

} 



return (FALSE) ; 

} /* End of use_stpi() */ 

End of dcs.h, dcs.c 
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edac.h, edac.c 

/♦**************************************************************************** 

* 

* EDAC . H 

♦ 

* Error Detection And Correction routines. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 



Revision History: 



Date 



Who What 



21 August 1996 Jah Creation 

***************************************************************************/ 



typedef struct edac_stats 

( 

BYTE huge * ram_wash_ptr ; 
DWORD soft_errors; 

DWORD r am_wa sh_cy c 1 e s 

) edac_stats_struct ; 



#if def EDAC 

void edac_get_s tats {edac_stats_struct * stats); 
void interrupt far edac_hard_isr { ) ; 
void interrupt far edac_soft_isr{); 
void ram_wash (void) ; 

#endif 



#if ndef EDAC 



extern void 

extern void interrupt far 
extern void interrupt far 
extern void 



edac_get_stats (edac_stats_struct * stats) ; 
edac_hard_isr { ) ; 
edac_soft_isr () ; 
ram_wash (void) ; 



#endif 



/* 



****+********************************************************************* 



* EDAC . C 

* 

* Error Detection And Correction routines. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Homing (Jah) 



* Revision History: 

* Date Who What 

* + + 

* 21 August 1996 Jah Creation 

* 

♦♦♦♦♦♦♦♦♦I*******************************************************************/ 

# include "gen_def s . h" 



# define EDAC 
# include "edac.h” 
#undef EDAC 

# include " int.h" 
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#def ine DOCON OxFFOO 

#def ine DMAO_OFF OxFFFF 

#def ine DMAl_OFF OxFFFF 

#define RAM WASH COUNT 64 



/* 64 words */ 



/* This marks the location of the RAM wash in Static RAM. It is updated 

* after ram_wash() finishes an interval of washing so that it marks 

* where next to begin washing the next time ram_wash() is invoked. 

*/ 

static BYTE huge * ram_wash_ptr = (BYTE huge *)0; 

static DWORD edac_hard_err = OL; 
static DWORD edac_sof t_err = OL; 
static DWORD ram_wash_cycles = OL; 



/********■***********■************** + *************-*■********•********************* 



* void edac_get_stats ( ) 

* 

* Returns the information about the EDAC. The current RAM Wash pointer, 

* the number of soft errors. 



void edac_get_stats (edac_stats_struct * stats) 

{ 

stats- >ram_wash_ptr = ram_wash_ptr ; 
stats- >soft_errors = edac_sof t_err; 
stats- >ram_wash_cycles = ram_wash_cycles ; 

} /* End of edac_get_stats () */ 

/***** *** ******* 



edac_hard_isr ( ) 



**************************************/ 



void interrupt far edac_hard_isr ( ) 

( 



/* Send specific EOI to PIC */ 

outpw (INT_EOI , 0x00 OE ) ; /* Interrupt OxE (14) - INT 2 */ 

} /* End of edac_hard_isr ( ) */ 



/****•**•*•*•**********■***•**•*■**•****•*■*■*■*■***•**■*** + **★****■*■********** + ■*************** 



edac_sof t_isr () 



/ 



void interrupt far edac_sof t_isr ( ) 

( 

edac_sof t_err++ ; 

/* Clear the EDAC error */ 
pcb_portc(2, RESET); 
pcb_portc(2, SET) ; 

/* Send specific EOI to PIC */ 

OUtpw (INT_EOI, OxOOOF) ; /* Interrupt OxF (15) - INT 3 */ 

} /* End of edac_sof t_isr ( ) */ 



* void edac_ram_wash (void) 

♦ 

* Washes a 128 byte contiguous block of SRAM. Uses ram_wash_ptr as the 

* starting address. Updates ram_wash_ptr upon terminating. 

* 

**★*★ + + + + + + + + + + * + + * + + + + ** + + + + + + ★ + + ★ + * + ***** + *** + + + + + + + + + *+ ** + ****** + + + + * + * + */ 



void edac_ram_wash ( void) 

{ 

asm 
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{ 



pushds 



Ids 


si , 


DWORD PTR ram_wash_ptr 






mov 


cx. 


RAM_WASH_COUNT 






cld 










mov 


dx, 


DO CON 






in 


ax, 


dx 






mov 


bx. 


ax ; 


save a copy 


of DMAO config 


and 


ax, 


DMAO_OFF 






out 


dx, 


ax ; 


DMA channel 


0 disabled 


inc 


dx 








inc 


dx 








in 


ax. 


dx 






mov 


di, 


ax ; 


save a copy 


of DMAl config 


and 


ax. 


DMA1J3FF 






out 


dx, 


ax ; 


DMA channel 


1 disabled 


cli 










rep 


lodsw 






sti 










mov 


ax, 


di ; 


DMAl config, 




out 


dx. 


ax ; 


DMA channel 


1 enabled 


dec 


dx 








dec 


dx 








mov 


ax, 


bx ; 


DMAO config 




out 


dx. 


ax ; 


DMA channel 


0 enabled 


pop 


ds 









ram_wash_ptr +=128; /* 64 words = 128 bytes were washed */ 

if (ram_wash_ptr > (BYTE huge * ) 0x7FFFFFFF) 

( 

ram_wash_ptr = (BYTE huge *)0; 
ram_wash_cycles++ ; 

} 



} /* End of edac_ram_wash ( ) */ 

End of edac.h, edac.c 
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************************************************ 



eps.h, eps.c 



EPS.H 



Defines for the RF unit interface routines. 



Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

Revision History: 



Date Who What 



30 Oct 1996 Jah Creation 



*************************************************************************** ^ 



/* Power control defines */ 
#def ine PWR_TMUXA 0 

# define PWR_MSA l 

#def ine PWR_HEATA 2 

#def ine PWR_HEATB 3 

#def ine PWR_RF 4 

#def ine PWRJTMUXB5 
# define PWR_MSB 6 

#def ine PWR_ANTREL 7 

/* Battery Control defines */ 



#def ine B AT_ONL I NE 1 
# define B AT_0 FFL I NE 2 
# define BAT_TRI CKLE_ON 3 
#def ine BAT_TRICKLE_OFF 4 
#def ine BAT_CHARGE_ON 5 
#def ine BAT CHARGE OFF 6 



#def ine BAT_DISCHARGE_ON 7 
#def ine B AT_D I S CHARG E OFF8 



#ifdef EPS 

^define POWER_ON_DELAY Oxl FFF 

voideps_batts_off (int) ; 

voideps_global_of f (void) ; 

void eps_set_port2 (BYTE value) ; 

BYTE eps_get _port2 (void) ; 

BYTE eps_get_battery (void) ; 

int eps_set_battery (int battery, int mode) ; 

WORD eps_get_power (void) ; 

void eps_set_power (int device, int mode); 

voideps_reset_wdog (void) ; 

#endif 



#ifndef EPS 






extern 


void 


eps_batts_of f (int) ; 


extern 


void 


eps global_of f (void) ; 


extern 


void 


eps_set_port2 (BYTE value); 


extern 


BYTE 


eps_get_port2 (void) ; 


extern 


BYTE 


eps_get_battery (void) ; 


extern 


int 


eps_set_battery (int battery, int mode) 


extern 


WORD 


eps_get_power (void) ; 


extern 


void 


eps_set_power (int device, int mode) ; 


extern 


void 


eps_reset_wdog (void) ; 



#endif 
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/ 



* EPS . C 

* 

* Interface routines for the EPS unit. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



* 30 Oct 1996 Jah 

* 6 Dec 1996 Jah 

* 25 Feb 1997 Jah 



Creation 

Changed port settings per Ron’s EPS modifications 
Keep Port 2, Bit 1 always on (the current MUX enable) 



***************************************** 



*/ 



#include "gen_def s . h" 



#define EPS 
# include "eps.h’' 
#undef EPS 



#include "bcm.h" 
# include "pcb.h" 



int check__bat ( int battery, BYTE mask) ; 



static BYTE portO = 0; 

static BYTE port2 = 0x01; /* Current MUX enabled */ 

Static BYTE port 6 = 0; 



/*★***★*********************************************************************** 



* eps_batts_of f ( ) 

* 

* Power OFF all battery controls, EXCEPT the battery ONLINE controls. 

* 

****************************************************************************/ 

voideps_batts_of f (int online) 

{ 

if (online == BAT_A) 

{ 

portO &= 0x0 F; /* 

portO [= 0x20; /* 

port 6 =0; /* 

/* Write to portO FIRST 

pcb_write (EPS0 , 0, portO); 
pcb_write (EPS1, 2, port6) ; 

) 

else if (online == BAT_B) 

{ 

/* Turn OFF All battery controls to A */ 

portO &= 0x0 F ; /* ALL battery A controls to be turned OFF */ 

port 6 = 0x20; /* Battery B controls to be turned OFF, except ONLINE = ON */ 

/* Write to Port6 FIRST to insure there remains a battery online */ 
pcb_write (EPS1 , 2, port6) ; 
pcb_write (EPS0, 0, portO); 

} 

} /* End of eps_batts_of f ( ) */ 



ALL Battery A controls to be turned OFF 
Battery A ONLINE to be turned ON */ 

ALL Battery B controls to be turned OFF 



to insure there remains a battery online */ 



/*******************★********************************************************* 

★ 

* eps_global_of f ( ) 

* 

* Power OFF all subsystems, and all battery controls, EXCEPT the battery 

* ONLINE controls. 

* 

void eps__global__of f (void) 
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{ 



portO &= 0x20; 
pcb_write (EPSO , 0, portO); 



/* All OFF except the online (if it is on) */ 



port2 = 0x01; 

pcb_write (EPSO , 2, port2) ; /* Other subsystem power */ 

port6 &= 0x20; 

pcb_write (EPS1 , 2, ports); /* Battery B control OFF except the online (if it is on) */ 
} /* End of eps_global_of f () */ 



/************************************************************* + ***** +# *** + * #+1t 

* eps_set_port2 ( ) 

* 

* Power ON or OFF a subsystem, leaving others undisturbed. 

* 

******************************************************««*+***+**************y 

void eps_set_port2 (BYTE value) 

{ 

port2 = value | 0x01; /* Keep Current MUX enabled */ 

pcb_write (EPSO , 2 , port2) ; 

} /* End of eps_set_port2 ( ) */ 

/•♦•I************************************************************************* 

* 

* eps_get_port2 () 

* 

* Power ON or OFF a subsystem, leaving others undisturbed. 

# 

ft***************************************************************************/ 

BYTE eps_get_port2 (void) 

i 

return (port 2) ; 

} /* End of eps_getjport2 ( ) */ 

/ft**************************************************************************** 



eps_get_power ( ) 

Get power ON or OFF status for the subsystems. 



************•***•••*•*•****************■+****++******************************/ 

WORD eps_get_power (void) 

{ 

/* LSB is power bits of Port 0, MSB is power bits of Port 2 

* Other bits pertaining to battery control, unused bits, or the 

* S/P current inhibit and strobe are maksed off to 0. 

*/ 

return ( (( (WORD) port T k 0x007C) << 8) | ((WORD)portO & OxOOOD) ) ; 

} /* End of eps_get _power ( ) •/ 



/*★★******•***•••*»••••••*•••••★•******++*******+**•******+★****★***★*******+* 

* eps_set_power { » 

* 

* Power ON or OFF a subsystem, leaving others undisturbed. 



**************************** 



****** j 



void eps_set_power ( int select, int mode) 

t 

register BYTE temp, mask; 

WORD delay; 



/* This table contains bit positions in EPS ports 0 & 2 for power control 
* bits for the subsystems, heaters, and antenna release. 

*/ 

static WORD power_table [ ] = {4, 8, 1, 0x40, 0x20, 0x10, 8, 4}; 



switch (select) 
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/* Port 0 Power Controls */ 

Case PWR_TMUXA: 
case PWR_MSA: 
case PWR_HEATA: 

if (mode == ON) 

portO |= power_table [select] ; 
else if (mode == OFF) 

portO &= ~power_table [select] ; 

else 

return; 

pcb_write (EPSO, 0, portO); 
break ; 

/* Port 2 Power Controls */ 

case PWR_HEATB: 

case PWR_RF : 

case PWR_TMUXB : 

case PWR_MSB : 

case PWR_ANTREL: 

if (mode == ON) 

port2 |= power_table [select] ; 
else if (mode == OFF) 

port2 &= -power_table [select] ,- 

else 

return; 

pcb_write (EPSO, 2, port2) ; 
break; 

default : 

break ; 

} 

if (mode == ON) 

for (delay = 0; delay < POWER__ON_DELAY ; delay++) 



} /* End of eps_set_power ( ) */ 



/**********«★★**★★***★***********★*****★********★******★★****************«**** 



* eps_get_battery ( ) 



**********************************************★*****************************/ 



BYTE eps_get_battery (void) 

{ 

/* MSnibble is Battery A contorl bits of Port 0, LSnibble is Battery B 

* control bits of Port 6. Other bits pertaining to battery control, 

* unused, or the S/P current inhibit and strobe are maksed off to 0. 
*/ 

return (( (ports & 0xF0)>>4) | (portO & OxFO) ) ; 

} /* End of eps_get_battery () */ 



/ft**************************************************************************** 



* eps_set_battery () 

* 

****************************************************************************/ 

# define MAS K_ AND 1 

#define MASK_OR 2 

int eps_set_battery (int battery, int mode) 

{ 

register BYTE temp, mask; 



switch (mode) 

{ 

case BAT_CHARGE_ON : 

temp = 0x8 0; mask = MASK_OR ; break; 
case BAT_CHARGE_OFF : 

temp = -0x80; mask = MAS K_ AND ; break; 

case BAT_DISCHARGE_ON: 

temp « 0x40; mask « MASK_OR; break; 
case BAT_DISCHARGE_OFF : 

temp = -0x40; mask = MAS K_ AND; break; 
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case BAT_ ONLINE : 

temp = 0x20; mask = MASK_OR,- break; 
case BAT_OFFLINE: 

temp = -0x20; mask = MAS K_ AND ; break; 

case BAT_TRICKLE__ON: 

temp = 0x10; mask = MASK_OR; break; 
case BAT_TRICKLE_OFF: 

temp = -0X10; mask = MAS K_ AND; break; 

default : 

break ; 

) 

switch (battery) 

( 

case BAT_A: 

if ((mask == MASK_OR) && check_bat (BAT_A, temp)) 
portO |= temp; 
else if (mask == MAS K_ AND) 
portO &= temp; 

else 

( 

dprint ("EPS: battery control command error - state not allowed\n") 
return (ERROR) ; 

} 

pcb_write (EPS0, 0, portO); 
break 

case BAT_B: 

if ((mask == MASK_OR) && check_bat (BAT_B, temp)) 
port 6 |= temp; 
else if (mask == MAS K_ AND) 
port 6 &= temp; 

else 

{ 

dprint ("EPS : battery control command error - state not allowed\n" ) 
return (ERROR) ; 

) 

pcb_write (EPS1 , 2, port6) ; 
break; 

default : 

break ; 

} 

return (NO_ERROR) ; 

} /* End of eps_set_battery () */ 



********** 



******** 



check_bat () 

Check to make sure that the new battery control desired to be turned 
on does NOT conflict with other settings that are already on. 

*★**** + + ************************** *♦*********************** + ***************/ 



int check_bat (int battery, BYTE mask) 

{ 

/* Allowed battery ON setting compared to existing settings */ 

/* This table is read with the row being the battery ON setting 

* that is desired. The first four entries are for battery A, the 

* following four are for battery B. The columns represent 

* settings already set ON for battery control; again, the first four 

* are for battery A, the remaining for for battery B. 

* If there is a 1, then the new setting is NOT allowed. A zero indicates 

* the new setting is allowed. 



B Trickle + 

B Online + 

i 

B Discharge + | | 

I I 

B Charge + | | | 

I I I 

A Trickle + | | | 

I I I I 

A Online + | | j | | 

I I I I I 

A Discharge + I I I I I I 
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I 

I 



A Charge ---+ | | | I I I I 



* 






vvvvvvvv 


* 






(hex) 80 40 20 10 08 04 02 01 


*/ 








static WORD 


bat_table [8] = { 




/* 


A 


Charge *70x59, 




/* 


A 


Discharge */0xB4, 




/* 


A 


Online */0x40, 




/* 


A 


Trickle */0xC9, 




/* 


B 


Charge *70x95, 




/* 


B 


Discharge */0x4B, 




/* 


B 


Online */0x04. 




/* 


B 


Trickle */0x9C); 


int i ; 









switch (mask) 
/ 




i 

case 0x10: 


/* Trickle */ 


i = 3; 


break; 


case 0x20: 


/* Online */ 


i = 2; 


break; 


case 0x40: 


/* Discharge */ 


i = 1; 


break; 


case 0x80: 


/* Charge */ 


i = 0; 


break ; 



} /* End of SWITCH */ 



if (battery == BAT_B) 
i += 4; 

/* i is the index into the table */ 

/* The table ANDed with the current information regarding which battery 

* switches are set (ON) are used to see if the new ON request is 

* allowed. 

*/ 

if (bat_table (i) & eps_get_battery() ) 

return (FALSE) ; /* not allowed */ 

else 

return (TRUE) ; 

} /* End of check_bat() */ 



/***************************************************************************** 

* 

* eps_reset_wdog ( ) 

* 

* Toggle the EPS Watch Dog timer so that the EPS will not reset the current 

* active System Controller. This is done using Port 4 of the EPS. 

* 

******************••**»••••*•***********************************************/ 



void eps_reset_wdog (void) 

{ 

WORD i ; 



pcb_write (EPSl . 0. 1), 

for (i = 0; i * OxlFFF. *♦♦) 



pcb_write (EPSl . C. C i . 

} /* End of eps_resf t_ wdog ( ) */ 



End of eps.h, eps.c 
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gen_apis.h, gen_apis.c 

/****************************************♦************************************ 

* GEN_APIS . H 

* 

* Include file for general functions. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* 

* Revision History: 

* _________________ 

* Date Who What 

* + 

* 5 Sept 1996- Jah Creation 

♦ 

• * * *•*****★************★*******★*★★★★***★*****★★*★********★★*****★********** j 



#if def GEN_APIS 

WORD crc_calc (WORD crc, BYTE data); 
WORD check_crc (void *ptr, int size); 
WORDdisable_ints (void) ,- 
voidenable_ints (void) ; 

WORD prepare_crc (void *ptr, int size) ; 

ftendif 



/* 

#i 



prototypes for 
fndef GEN APIS 



extern 


WORD 


extern 


WORD 


extern 


WORD 


extern 


void 


extern 


WORD 


extern 


const 



modules other than msu.c */ 

crc^calc (WORD crc, BYTE data) ; 
check_crc (void *ptr, int size) ; 
disable_ints (void) ; 
enable_ints (void) ; 
prepare_crc (void *ptr, int size); 

WORDcrc_table (] ; 



#endif 



/****************************************•***********************•*★*********** 



GEN_APIS . C 

General functions available to .c files.. 

Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright { c ) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Homing (Jah) 

Revision History: 



Date Who What 



21 Oct 1996 Jah Creation 



•♦•♦•♦•♦★♦♦♦v**************************************************************/ 



^include "gen_def s ,h" 

# define GEN_APIS 

# include n gen_apis.h" 
ftundef GEN APIS 



/• CRC lookup table for all 256 CRC combinations from an 8-bit value */ 
# define CRC_TABLE_LEN 256 

static const WORD c rentable (CRC_TABLE_LEN) = 

( 



0x0000 , 


0x1189, 


0x2312, 


0X329B, 


0x4624 , 


0x57AD, 


0x6536, 


0X74BF, 


0x8C4 8 , 


0x9DCl , 


0xAF5A, 


0xBED3 , 


0xCA6C, 


0xDBE5 , 


0xE97E, 


0XF8F7, 


0x1891, 


0x0918, 


0x3B83 , 


0X2A0A, 


0x5EB5 , 


0X4F3C, 


0x7DA7, 


0X6C2E, 


0X94D9, 


0x8550, 


0xB7CB, 


0xA642 , 


0XD2FD, 


0XC374, 


OxFIEF, 


0xE066 , 


0x3122, 


0x20AB, 


0x1230, 


0X03B9, 


0x7706, 


0x668F, 


0x5414, 


0x4 5 9D 


0xBD6A, 


0xACE3 , 


0x9E78 , 


0x8FFl , 


0XFB4E, 


0XEAC7 , 


0xD85C, 


0xC9D5 
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0x2 9B3, 


0x383A, 


OxOAAl , 


0xlB2 8 , 


0x6F97 , 


0x7ElE, 


0x4 C8 5, 


0x5D0C, 


0xA5FB , 


0xB4 72 , 


0x86E9, 


0x9760, 


0xE3DF, 


0XF256, 


OxCOCD, 


0XD144, 


0x6244, 


0x73 CD, 


0x4156, 


0x50DF, 


0x2460, 


0x3 5E9, 


0x0772, 


0x1 6 FB , 


OxEEOC, 


0XFF85, 


OxCDlE, 


0xDC97, 


0xA828, 


0XB9A1, 


0X8B3A, 


0x9AB3 , 


0X7AD5 , 


0x6B5C , 


0X59C7, 


0x4 8 4E, 


0X3CF1, 


0X2D78, 


0x1 FE3 , 


0x0E6A, 


0xF69D, 


0XE714, 


0XD58F, 


0xC4 06 , 


0XB0B9, 


0xA130, 


0x93AB, 


0x8222 , 


0x5366, 


0X42EF, 


0x7074, 


0x61FD, 


0x1542, 


0X04CB, 


0x3650, 


0x2 7D9 , 


0XDF2E, 


0xCEA7 , 


0xFC3C, 


0xEDB5, 


0x990A, 


0x8883, 


0xBA18, 


0xAB91, 


0x4BF7 , 


0X5A7E, 


0x68E5 , 


0x796C, 


0x0DD3 , 


0xlC5A, 


0X2EC1, 


0x3 F4 8 , 


0XC7BF, 


0xD636, 


0xE4AD, 


0XF524 , 


0X819B, 


0x9012, 


0xA289 , 


0xB300, 


0xC4 8 8 , 


0xD501, 


0XE79A, 


0XF613 , 


0X82AC, 


0x9325, 


OxAlBE, 


0xB037, 


0X48C0, 


0x5949, 


0X6BD2, 


0x7A5B , 


OxOEE4 , 


0X1F6D, 


0x2DF6 , 


0x3C7F, 


0XDC19, 


0xCD90 , 


OxFFOB, 


0xEE82 , 


0x9A3D, 


0X8BB4, 


0XB92F, 


0xA8A6 , 


0x5051, 


0x4 1D8, 


0x7343, 


0X62CA, 


0x1675, 


0x07FC, 


0x3567, 


0x2 4 EE , 


0xF5AA, 


0xE423, 


0XD6B8, 


0xC73 1 , 


0XB38E, 


0xA2 07 , 


0x9 09C, 


0x8115, 


0X79E2, 


0X686B, 


0x5AF0 , 


0x4B79 , 


0x3 FC6, 


0X2E4F, 


0X1 CD4 , 


0x0D5D, 


0XED3B, 


0xFCB2 , 


0xCE2 9 , 


0XDFA0, 


OxABlF , 


0xBA96 , 


0X880D, 


0x9984, 


0x6173, 


0x70 FA, 


0x4261, 


0X53E8, 


0x2757, 


0x3 6DE, 


0x0445 , 


0X15CC, 


0xA6CC , 


0xB74 5 , 


0X85DE, 


0x9457, 


0XE0E8, 


0xF161, 


0XC3FA, 


0XD273, 


0x2A84, 


0x3B0D, 


0x0996, 


0x18 IF, 


0x6 CA0, 


0X7D29, 


0x4 FB2, 


0x5E3B, 


0xBE5D, 


0xAFD4 , 


0X9D4F, 


0x8CC6, 


0xF879, 


0XE9F0, 


0XDB6B, 


0xCAE2 , 


0x3215, 


0x23 9C, 


0x1107, 


0x008E, 


0x7431, 


0x65B8 , 


0x5723, 


0x46AA, 


0x9 7EE, 


0x8667, 


0XB4FC, 


0xA575 , 


OxDlCA, 


0xC043, 


0XF2D8, 


0xE3 51, 


0X1BA6, 


0X0A2F, 


0x3 8B4, 


0x293D, 


0X5D82, 


0X4C0B, 


0x7E90, 


0x6Fl9 


0x8F7F, 


0x9EF6 , 


0xAC6D, 


0xBDE4 , 


0xC95B , 


0xD8D2, 


0xEA4 9 , 


OxFBCO 


0x0337, 


0xl2BE , 


0x2025, 


0x3 1AC, 


0x4513, 


0x54 9A, 


0x6601, 


0x7788 



static WORD ints_disabled = FALSE; 



/♦a-*************************************************************************** 



* WORD crc_calc (WORD crc, BYTE data) 

★ 

* Takes a CRC and a new data byte and computes a new CRC. 

* 

******************+*********************************************************/ 



WORD crc_calc (WORD crc, BYTE data) 

{ 

return((crc >> 8) A crc_table [data A (crc & OxFF) ] ) ; 

} /* End of crc_calc() */ 

/********★******************************************************************** 

* 

* WORD check_crc (void *ptr, int size) 

★ 

* Check an arbitrary lengthed buffer with its CRC. This function assumes 

* that the buffer has the CRC appended to the data. The CRC is returned. 

* 

****************************************************************************/ 



WORD check_crc (void *ptr, int size) 

{ 

int i ; 

WORD crc ; 

BYTE * p = (BYTE Mptr; 



for (i = 0, crc = 0; i < size; i++) 
crc = crc_calc (crc, *p++) ; 

re turn (crc) ; 

} /* End of prep_crc() */ 



/***************************************************************************** 

★ 

* WORD prepare_crc (void *data, int size) 

* 

* Prepare an arbitrary lengthed buffer with its CRC by calculating the CRC 

* and then appending it to the end of the buffer. This function assumes 

* that the buffer is prepared with a length of 2 greater than the data. 

* The high-byte of the CRC is written first, the low-byte follows. The CRC 

* is returned. 



’ *************************************************************************** -k I 



WORD prepare_crc (void *ptr, int size) 
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{ 

int i ; 

WORDcrc ; 

BYTE *p = {BYTE *)ptr; 



for {i = 0, crc = 0; i < size; i++) 
crc = crc_calc (crc, *p++) ; 

*p + + = (BYTE) {{crc & OxFFOO) » 8); 
*p = (BYTE) {crc & OxOOFF) ; 

return (crc) ; 

} /* End of prep_crc() */ 



/**************★***★*********★*★***★★★★*«***********★★**★★***********★*★****** 

* 

* WORDdisable_ints ( ) 

* 

* Disable interrupts {if they are not already disabled) . And set the 

* ints_disabled flag to TRUE, indicating that interrupts are no longer 

* enabled. Return the flag which is used to control wether or not interrupts 

* should be re-enabled. 

* 

****************************************************************************/ 



WORDdisable_ints (void) 

{ 

if { int s_disabled) 

( 

^disable {) ; 

int s_disabled = TRUE; 

return { ints_disabled) ; 

} 

else 

return (FALSE) ; 

} /* End of disable_ints { ) */ 



/ 



*************** 



voidenable_ints {) 

Enables interrupts and marks the ints_disabled flag accordingly. 

************************************************************************♦**/ 



void enable_ints (void) 

{ 

_enable {) ; 

ints_disabled = FALSE; 

} /* End of enable_ints {) */ 



End of gen_apis.h, gen_apis.c 
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gen_defs.li 

/***************************************»************************************* 

* 

* GEN_DEFS.H 

* 

* Include file for general definitions used by most .h and .c files.. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



* 8 Sept 1995 Jah Creation 

***++*+*************★*******************************************************/ 



typedef 


unsigned 


char 


BYTE 


typedef 


unsigned 


int 


WORD ; 


typedef 


unsigned 


long int DWORD; 



♦♦define 


FALSE 


0 


♦♦define 


TRUE 


1 


#def ine 


ERROR 


0 


♦♦define 


N0_ ERROR 


1 


♦♦define 


OFF 


0 


♦♦define 


ON 


1 


#def ine 


RESET 


0 


#def ine 


SET 


1 


♦♦define 


NULL 


•\0’ 



/* Character definitions for ASCII */ 



♦♦define 


NULL_CHAR 


(char) 0x00 






♦♦define 


BELL 


(char) 0x07 






♦♦define 


BACK-SPACE 


(char) 0x08 






♦♦define 


LF 


(char) OxOA 






#def ine 


CR 


(char) OxOD 






#def ine 


ESC 


(char) OxlB 






♦♦define 


CTRL_Q 


(char) 0x11 






♦♦define 


CTRL_R 


(char) 0x12 






♦♦define 


CTRL_S 


(char) 0x13 






#def ine 


CTRL_V 


(char) 0x16 






#def ine 


CTRL_W 


(char) 0x17 






♦♦define 


CTRL_X 


(char) 0x18 






#def ine 


CTRL_Y 


(char) 0x19 






♦♦define 


CTRL_Z 


(char) OxlA 






#def ine 


HOME 


(char) OxlE 






#def ine 


NEW_LINE 


(char) OxlF 






#def ine 


MAX_UCHAR 


(unsigned 


char) 


255 


♦♦define 


MAX _ CHAR 


(signed char) 




127 


♦♦define 


MAX _U I NT 


(unsigned int) 




65535 


♦♦define 


MAX_INT 


(int) 




32767 


♦♦define 


MAX_ULONG 


(unsigned 


long 


int) 4294967295 


♦♦def ine 


MAX_LONG 


(long int) 




2147483647 



/+ DMA Registers 


V 


#def ine 


D0SRCH 


0XFFC2 


♦♦define 


D0SRCL 


OxFFCO 


#def ine 


D0DSTH 


0xFFC6 


♦♦define 


D0DSTL 


0XFFC4 


♦♦define 


DO CON 


OxFFCA 


♦♦define 


D0TC0XFFC8 


♦♦define 


D1SRCH 


0XFFD2 


♦♦define 


D1SRCL 


OxFFDO 


♦♦define 


D1DSTH 


0XFFD6 


♦♦define 


D1DSTL 


0xFFD4 


♦♦define 


D1CON 


OxFFDA 


♦♦define 


D1TC 0XFFD8 
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/* Operating Frequencies */ 

#def ine CRYSTAL_FREQUENCY 1 4 , 7456E+6 

/* Peripheral Clock: half the frequency of the crystal frequency */ 
#def ine PCLK ( (double) (1.0/ ( CRY STAL_FREQUEN C Y / 2 . 0) ) ) 



End of gen_defs.h 
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int.h, int.c 

/***************************************************************************** 

* 

* INT.H 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History; 



* Date Who What 



**************************************************************************** I 



# define INT_EOI 0xFF22 

# define INT_REQ_REG 0xFF2E 



/***************************************************************************** 

* 

* INT.C 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



**************************************************************************** j 

#include "gen_def s .h" 

# define INT_C 

# include "int.h" 

#undef INT C 



End of int.h, int.c 
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modem. h, modem. c 

/t******tt***tt*i****t**t*ii***ti*t**t**t*t*ttitt*t**t*t****tt*t**tt**ti*tt*t* 

♦ 

* MODEM . H 

* 

* MODEM 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date who What 

* + + 

* 17 July 1996 Jah Creation 

* 



typedef struct 

{ 

BYTE address ; 

BYTE data; 

} palOO_instr_struct ; 



#ifdef MODEM 

#def ine PA100_BASE 0x200 

ttdefine MODEM CTRL PORT 0x180 



#def ine 
#def ine 
#def ine 
#def ine 



MODEM_SETUP 
MODEM_RESET 
MODEM_CLEAR 
MODEM SPREAD OxOE 



0x00/* Encode=OFF, DDS=OFF, Spread=OFF, Reset=OFF */ 
0x01/* Encode=OFF, DDS=OFF, Spread=OFF, Reset =ON */ 
OxOC / * Encode =ON, DDS=ON, Spread=OFF, Reset=OFF */ 

/* Encode=ON,DDS=ON,Spread=ON,Reset=OFF */ 



voidmodem_cl ear (void) ; 
voidmodem_of f (void) ; 
voidmodem__on (void) ; 
void modem_sp read (void) ; 

void pal0 0_read_regs (void) ; 

void pal00_wri te_table (pal00_instr_struct table []) ; 



#endif 



ttifndef MODEM 



extern void 
extern void 
extern void 
extern void 



modem_clear (void) ; 
modem_of f (void) ; 
modem_on (void) ; 
modem_spread (void) ; 



extern void pal 00_read_regs (void) ; 

extern void pal00_write_table (pal00_instr_struct tabled); 



#endif 



MODEM . C 



Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

Revision History: 

Date Who What 

+ + 

17 July 1996 Jah Creation 



***************** 



******************** 



#include 



M gen_def s .h" 



#def ine 

#include 

#undef 



MODEM 
" modem. h" 
MODEM 



# include 



■ pcb. h" 



static pal 00_instr_s true t pal00_init[] = 
{ 



{0x01, 


0xC6 } , 


/* 


ALPHA_I FIR filter weights */ 


{0x04, 


0xC6 } , 


/* 


ALPHA_Q */ 


{0x02, 


0x00} , 


/* 


IBI_LO DC removal filter, I channel bias */ 


{0x03, 


0xE2 } , 


/* 


IBI_HI */ 


{0x05, 


0x00} , 


/* 


QBI_LO DC removal filter, Q channel bias */ 


{0x06, 


0xE2 } , 


/* 


OBI_HI */ 


/* AGC * 


/ 






{0x07, 


0x22} , 


/* 


AGC_L AGC reference Level */ 


{0x08, 


0x38} , 


/* 


AGC_G AGC proportional & saturated gains */ 


{0x09, 


0x00} , 


/* 


AGC_I AGC initial value */ 


{ OxOA, 


0xF5 } , 


/* 


GP1_CTL Init. AGC, apply DC removal filter initial bias 


{ OxOA, 


OxFO } , 


/* 


GP1_CTL Let AGC free run, remove DC filter initial bias 


/* PN Generators 


*/ 




{0x19, 


0x00 ) , 


/* 


I_PNT_LO I PN generator taps */ 


{ 0x1 A, 


0x82} , 


/* 


I_PNT_HI */ 


{0x17, 


0x00} , 


/* 


I_PNI_LO I PN generator initial register setting */ 


{0x18, 


OxBE } , 


/* 


I _ PNI _ HI */ 


{ OxlD, 


0x00} , 


/* 


Q_PNT_LO Q PN generator taps */ 


{ OxlE, 


0x82} , 


/* 


Q_PNT_ HI */ 


{ OxlB, 


0x00} , 


/* 


Q_PNI_LO Q PN generator initial register setting */ 


{ OxlC, 


OxBE} , 


/* 


Q_PN I _ HI */ 


{ OxlF , 


0x77} , 


/* 


PN_CNTL0 */ 


{0x20, 


0x05} , 


/* 


PN_CNTL1 */ 


/* PN Detector * 


f 




{0x22, 


0x00} , 


/* 


PNSEL PN detection code select (I or Q code) */ 


/* General Controls 


*/ 


{0x28, 


0x39} , 


/* 


CNTL_B2 Enable time/level/phase strobes, set polarities 


{0x29, 


0x01} , 


/* 


CNTL_B 3 unfreeze, enable output data clock */ 


{ 0x2A, 


0x00} , 


/* 


EXT_IN External data input controls */ 


{ 0x2B, 


0x00} , 


/* 


GP_3 Clear i/o muxing */ 


{ 0x2C, 


OxEA} , 


/* 


CNTL_AS Select symbol strobes used by accumulators */ 


/* Phase Loop */ 






{0x39, 


0x00} , 


/* 


PH_FREQ_0 Phase accumulator initial value */ 


{ 0x3A, 


0x00} , 


/* 


PH_FREQ_1 */ 


{ 0x3B , 


0x00}, 


/* 


PH_FREQ_2 */ 


{ 0x3C, 


0x00} , 


/* 


PH_FREQ_3 */ 


/* Time 


Loop */ 






{0x14, 


OxFA} , 


/* 


TIM_CTL2 Set subchip and chip counter sync, source */ 


{0x33, 


0x0 9 } , 


/* 


TM_WIDTH Freq Synth Ctrl Word width = 32-TM_WlDTH bits 


{ OxOC, 


0x00} , 


/* 


SC_LO Samples per subchip = 0 */ 


{ 0x0D, 


0x00} , 


/* 


SC_HI Clear mode for initialization */ 


{ OxOE , 


0x00} , 


/* 


CHIP Subchips per chip = 0, clear mode for init */ 


{ OxOF , 


0x00} , 


/* 


I_SYM_HI I channel: chips per symbol = 0 * / 


{0x10, 


0x00} , 


/* 


I_SYM_LO Clear mode for initialization */ 


{0x11, 


0x00} , 


/* 


Q_SYM_HI 0 channel: chips per symbol = 0 */ 


{0x12, 


0x00} , 


/* 


Q_SYM_L° */ 


{0x15, 


0x02} , 


/* 


TIM_CTL3 Toggle SYS_INIT, set I strobe via I, Q via Q 


{0x15, 


0x42} , 


/* 


TIM_CTL3 Set I Sc Q PN to (2*N) -1 or 2 A N */ 


{0x15, 


0x02} , 


/* 


TIM_CTL3 Set I strobe from I channel, Q via Q channel 


{ 0x2D, 


0x00} , 


/* 


TM_FREQ_0 Rs, sample clock = 10 MHz for initialization 


{ 0x2E, 


0x00} , 


/* 


TM_FREQ_1 */ 


{ 0 x2 F , 


0x00}, 


/* 


TM_FREQ_2 */ 


{0x30, 


0x80} , 


/* 


TM_FREQ_3 */ 


{0x31, 


0x00} , 


/* 


TM_GAIN_1 Open Timing Loop */ 


{0x32, 


0x80} , 


/* 


TM_GAIN_2 Initialize Timing Loop */ 
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}; 



{ 0x32 , 0x00} , /* TM_GAIN_2 Scop initializing loop */ 

{ OxFF, OxFF } /* End */ 



static pal00_instr_struct pal00_clear [] = 
{ 



{ OxOB , 


0x00} , 


/* 


PA_SC 


PRE ACCUMULATOR SCALING CONSTANT */ 


/* PN GENERATORS 


*/ 






{0x21, 


0x20} , 


/* 


CC 


FREQ. DISC. ON, SET INT PN, I&Q PN ON/OFF */ 


{0x26, 


0x24 } , 


/* 


CNTL_B 0 


QUADRAPHASE DATA, SEL LEVEL $ TIME CHANNEL */ 


{0x27, 


0x3 B } , 


/* 


CNTL_B1 


ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 


/* TIME 


ERROR DETECTOR PROCESSOR */ 


{0x23, 


0x55} , 


/* 


I _Q_ TIME 


SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 


/* PHASE 


LEVEL PROCESSOR */ 




{ 0x24 , 


0x55}, 


/* 


I_Q_LEVEL 


SET SCALE FACTORS FOR LEVEL ACCUMULATOR */ 


{0x25, 


0x55} , 


/* 


I_Q_PHASE 


SET SCALE FACTORS FOR PHASE ACCUMULATOR */ 


/* TIME 


LOOP */ 








{oxoc. 


0x3F } , 


/* 


SC_LO 


Samples per subchip = 0 */ 


{ OxOD, 


0x00} , 


/* 


SC_HI 


clear mode for initialization */ 


{ OxOE, 


0x00} , 


/* 


CHIP 


Subchips per chip = 0, clear mode for init */ 


{ OxOF , 


0x00} , 


/* 


I _SYM_HI 


I channel: chips per symbol = 0 */ 


{0x10, 


0x01} , 


/* 


3:_SYM_LO 


clear mode for initialization */ 


{0x11, 


0x00} , 


/* 


Q_SYM_HI 


Q channel: chips per symbol = o */ 


{0x12, 


0x01} , 


/* 


Q_SYM_LO * 


/ 


{0x13, 


0x00} , 


/* 


TIM_CTL1 


NO CODE SLIPPING, CLEAR MODE */ 


{0x16, 


0X00} , 


/* 


TIM_CTL4 


CLEAR MODE, DISABLE */ 


{0x13, 


0x00} , 


/* 


TIM_CTL1 


NO CODE SLIPPING */ 


{ 0x2D, 


0x00} , 


/* 


TM_FREQ_0 


Rs, sample clock = START AT 10 MHz */ 


{ 0x2E, 


0x00} , 


/* 


TM_FREQ_1 


*/ 


{ 0x2F , 


0x00} , 


/* 


TM_FREQ_2 


*/ 


{0x30, 


0x80} , 


/* 


TM_FREQ_3 


*/ 


{0x31, 


0x58} , 


/* 


TM_GAIN_1 


Open Loop, ARM TO CLOSE ON PN DET, SET K1 */ 


{0x32, 


OxDl } , 


/* 


TM_GAIN_2 


LOAD FILTER WITH INITIAL VALUE, SET GAIN K2 


/* PN DETECTOR * 


/ 






{0x35, 


0x00} , 


/* 


PNCD_BIAS 


PN DETECTOR BIAS LEVEL */ 


{0x36, 


0X00} , 


/* 


PNCD_INITLO PN DETECTOR ACCUMULATOR */ 


{0x37, 


0x00} , 


/* 


PNCD_INITHI */ 


{0x38, 


OxFF} , 


/* 


PNCD_TIM 


PN DETECTOR CORRELATION TIMER */ 


/* PHASE 


: LOOP */ 








{ 0x3D, 


0x7F } , 


/* 


PH_GAIN_1 


CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 


{ 0x3E, 


0xD4 } , 


/* 


PH_GAIN_2 


LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 


/* TIME 


LOOP */ 








{0x15, 


0x42 } , 


/* 


SYS_INIT * 


f 


{0x15, 


0x02} , 


/* 


SYS_INIT * 


/ 


/* PN DETECTOR * 


/ 






{0x34, 


0x00} , 


/* 


PNCD_CTL 


PN DETECTOR ACQ/TRACK CONTROLLER */ 


{0x34, 


0x04 } , 


/* 


PNCD_CTL 


RESTART TRACK SEQUENCE */ 


{0x34, 


0x00} , 


/* 


PNCD_CTL * 


/ 


/* TIME 


LOOP */ 








{0x32, 


0x51 } . 


/* 


TM GAIN 2 


Stop LOADING TIME LOOP FILTER WITH INIT VALUE 


/* FREQUENCY PULL IN/TRACK SETUP TABLE */ 


/* PN GENERATORS 


•/ 






{0x21, 


0x20} . 


/• 


CC 


FREQ. DISC. ON, SET INT PN, I&Q PN ON/OFF */ 


/* PHASE 


: LEVEL PROCESSOR */ 




{0x26, 


0x28 } , 


/• 


CNTL_B 0 


QUADRAPHASE DATA, SELECT LEVEL $ TIME CHANNEL 


{ 0x27, 


0x3B } , 


/• 


CNTL_B1 


ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 


{ 0x3D, 


0x7F } , 


/ • 


PH_GAIN_1 


CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 


{ 0x3E, 


0x54 ) , 


/• 


PH_GAIN_2 


LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 



/* TIME ERROR DETECTOR PROCESSOR */ 



{0x23, 0x55}, '* I_C_TIME 

/* PHASE LEVEL PROCESSOR •/ 
{0x24, 0*55}, • :_C_LEVEL 

{0x25, 0x55}. • I cl PHASE 

/* COHERENT TRACE SETUF ~TABLE 
{ 0x3D , 0x54}. • FH_GAIN_1 

{ 0x3E , 0x4 E | , • PH GAI N_2 

/* PHASE LEVEL V R OCESSOR •/ 



{0x26, 0x00 } . 

{0x27, 0x3D ) . 

/* PN GENERATORS 
{0x21, 0x00}, 



CNTL_B0 
CNTL B I 



CC 



SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 

SET SCALE FACTORS FOR LEVEL ACCUMULATOR */ 

SET SCALE FACTORS FOR PHASE ACCUMULATOR */ 

w 

CLOSE THE LOOP, MAKE LOOP FIRST ORDER */ 

LOAD ACCUM WITH INITIAL VALUE, SET GAIN K2 */ 

QUADRAPHASE DATA, SELECT LEVEL $ TIME CHANNEL 
ENABLE DATA REMOVAL, SELECT PHASE CHANNEL */ 

FREQ. DISC. ON, SET INT PN, I&Q PN ON/OFF */ 



/* TIME ERROR DETECTOR PROCESSOR */ 



{0x23, 0x55). /• I _Q_TIME 

/* PHASE LEVEL PROCESSOR •/ 



SET SCALE FACTORS FOR TIMING ACCUMULATOR */ 



{0x24, 


0x55} . 


/• 


I_Q_ 


LEVEL 


SET SCALE 


FACTORS FOR 


LEVEL ACCUMULATOR 


*/ 


{0x25, 


0X55} , 


/* 


I_Q_ 


PHASE 


SET SCALE 


FACTORS FOR 


PHASE ACCUMULATOR 


*/ 


{ OxFF, 


OxFF} 


/* 


End 


•/ 
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/★***★************★**★**★********★**★*★*******★★*** 

★ 

* modem_clear () 



************************************************** 



******************* i 



void modem_cl ear (void) 

( 

modem_on() ; 

/* outp (MODEM_CTRL_PORT, MODEM_SETUP) ; */ /* done by modem_on ( ) */ 

palOO_write_table (pal00_init) ; 
outp (MODEM_CTRL_PORT, MODEM_CLEAR) ; 
palOO_write_table (palOO_clear) ; 

} /* End of modem_clear ( ) */ 



*********************** 



* modem_off() 



****************************************************************************/ 



voidmodem_of f (void) 

{ 

pcb_portc(0, ON); /* Turn this control bit ON to turn OFF modem */ 
} /* End of modem_off() */ 



/***************************************************************************** 

* 

* modem_on ( ) 

♦ 

★*★★★★*★****★**★★★*******★***★*★★***★★*★*★******★**********★***★***★*★★★**★*/ 

void modem_on (void) 

{ 

WORDx; 



pcb_portc(0, OFF); /* Turn this control bit OFF to turn ON modem */ 

for (x = 0; x < OxFFFF ; X++) 

OUtp (MODEM_CTRL_PORT, MODEM_RESET) ; 
for (x = 0; x < OxFFFF; x + + ) 

OUtp (MODEM_CTRL_PORT , MODEM_SETUP) ; 

} /* End of modem_on() */ 

/A**************************************************************************** 

* 

* modem_spread ( ) 

* 

********************************+*+***************************************** j 

voidmodem_spread (void) 

( 

/* normal spread, fixed encode, on DDS on*/ 
outp (MODEM_CTRL_PORT, MODEM_SETUP ) ; 

pal00_write_table (pal00_init ) ; 

outp (MODEM_CTRL_PORT, MODEM_SPREAD) ; 

} /* End of modem_spread ( ) */ 



/* 



*******************************************+***************** 



* pal00_read_regs () 

★ 

******* + + + *** + + *****ir + + + + 1'1'*1titir1t1t1tirir + *i'i'i'iririr+ir1r* + *i'i' + irir*icir + ir + + + ir + * + itir + iri'ir + + it/ 
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void pal 00_read_regs (void) 

( 

unsigned int addr, data, x; 

unsigned int data_tab [0x20] ; 
unsigned int b; 
unsigned long a; 

double f; 



/* Freeze */ 

OUtp (PA100_BASE + (0x29} <<1, 0x81); 
for (x = 1; X <= 0X14; X + + ) 

data_tab [x] = inp (PA100_BASE + (x<<l) } ; 
/* Unfreeze */ 

OUtp (PA100_BASE + ( 0x29) <<2 , 0x01); 



for (x = 1; x <= 0x14; x++) 

{ 

data = data_tab[x]; 

switch (x) 

{ 

case 1 : 

dprint ( " 01 : AGC Status 
break; 

case 2 : 

b = data,- 
break; 

case 3 : 

b = (b<<8 ) + data; 

dprint ("02, 03: I Prefilter 

break ; 

case 4 : 

b = data,- 
break; 

case 5: 

b = (b<<8) + data; 

dprint ("04, 05: Q Prefilter 

break ; 

case 6 : 

a = data; 
break; 

case 7: 

a = (((unsigned long) data) << 8} + a; 
break ; 

case 8 : 

a = (((unsigned long) data) << 16) + a; 
break; 

case 9 : 

a = (((unsigned long) data) << 24} + a; 
f = ( (double) a) / ( (double) 214 . 74 8365E6 ) ; 
dprint ("06 - 09 Time Frequency Command 
dprint ( " 
break ; 

case OxA: 

a = data; 
break; 

case OxB: 

a = (((unsigned long) data) << 8} + a; 
break; 

case OxC: 

a = (((unsigned long)data) << 16) + a; 
break; 

case OxD: 

a = (((unsigned long)data) << 24) + a; 
f = ( (double) a) /( (double) 214 . 748365E6) ; 

dprint ("0A - 0D Phase Frequency Command 
dprint ( " 
break; 

case OxE: 
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%02Xh\n" , data) ; 



%04Xh\n'\ b) ; 



%04Xh\n", b) ; 



%lXh\n", a); 

%lf MHz\n" , f) ; 



= %lXh\n" , a) ; 

= %lf MHz\n" , f) 



break; 



case OxF: 
break; 

case OxlO: 

b = data; 
break; 



case Oxll: 

b = (data << 8) + b; 

dprintC'10, 11: PN Correlation Detector = %04Xh, %u\n" , b, b) ; 

break; 

case 0x12: 

b = data; 
break ; 

case 0x13: 

b = (data << 8) + b; 

dprint ("12, 13: PN Correlation Slip = %04Xh, %u\n" , b, b) ; 

break; 

case 0x14 : 

dprint ("14: pn Generator Status = %02Xh\n", data); 

if (data & 0x01) 

dprint ( " IPN_EP_TOG = l\n" ) ; 

else 

dprint (" IPN_EP_TOG = 0\n"); 

if (data & 0x02) 

dprint (" QPN_EP_TOG = l\n") ; 

else 

dprint (" QPN_EP_TOG = 0\n«); 

break; 

} 



} 



} /* End of pal00_read_regs ( ) */ 



/I***************************************************************************** 



* pal00_write_table () 

* 

**********************************★***********★********★********************/ 



voidpal00_write_table (pal00_instr_struct table [] ) 

< 

int x; 



for (x = 0; table (x) .address != (BYTE) OxFF; x++) 

{ 

if (table (x) .address == 0) 

outp (MODEM_CTRL_PORT, (WORD) table [x] .data) ; 

else 

outp ( PA1 OO^BASE ♦ (WORD) (table [x] . addressed) , (WORD) table [x] . data) 



} /* End of pal00_wr l testable ( ) */ 



End of modem. h, modem. c 
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msu.h, msu.c 

/***********♦******♦****************************★************************★**** 

♦ 

* MSU.H 

* Include file for Mass Storage Units (MSU) software interface. 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* 

* Revision History: 

* Date Who What 

* + + 

* 5 Sept 1996 Jah Creation 

****************************************************************************y 



# i f def MSU 

#def ine NUM FLASH DEVICES 4 



#def ine 
#def ine 
^define 
#def ine 
#def ine 



FLASH_SECTOR_SIZE ( (DWORD) 0x4 00 0L) /* 16 kbytes */ 

FLASH_SECTOR_END_ADDRESS ( (DWORD) (FLASH_SECTOR_SIZE - 1)) 
FLASH_SECTORS_PER_DEVICE 8 

FLASH_SECTOR_MAX_PER_DEVICE ( FLASH_DEVICE_SECT0RS - *1) 

FLASH_DEVICE_SIZE (FLASH_SECTORS_PER_DEVICE * FLASH_SECTOR_SIZE) 



# def ine FLASH_SIZE 
# def ine FLASH_END_ADDRESS 
# def ine FLASH_SECTORS 
^define FLASH SECTOR MAX 



(NUM_FLASH_DEVICES * FLASH_DEVICE_SI ZE) 
(FLASH_SIZE - 1) 

(NUM_FLASH_DEVICES * FLASH_SECTORS_PER_DEVICE) 
(FLASH_SECTORS - 1) 



#def ine ERASEJTIME_LIMIT 
#def ine WRITE TIME LIMIT 



( (DWORD) 0X0003FFFFL) 
0X0FFF 



/* Masks to signify the search method that found the first empty record 



# d e f i ne NO_TLM_WRAP 
# def ine TLM_WRAP 
#def ine NO_TLM_FIND 
#def ine NO REC NUM 



0x0 

0x8000 

OxFFFF 

OxFFFF 



*/ 



voidmsu_init (int device); 
void msu_on(int device); 

void msu_off(int device); 

int msu_flash_e rase (int device); 

int msu_f lash_erase_sector (int device, int sector); 

BYTEmsu_f lash_readl (int device, DWORD addr) ; 

void msu_f lash_read ( int device, DWORD addr, BYTE *buf, int count); 
int msu_f lash_writel ( int device, DWORD addr, BYTE data); 

int msu_f lash_write (int device, DWORD addr, BYTE *data, int count); 

voidmsu_set_f addr (int device, DWORD addr); 



int msu_calc_f irst_rec (int rec_num) ; 

int msu_check_f lash_tlm (void) ; 

WORDmsu_f lash_search (int device) ; 



int msu_get_tlm ( tlm_record_struct *r_tlm, int rec_num); 

voidmsu_save_tlm (tlm_record_struct *r_tlm) ; 

BYTEmsu_sram_readl (int device, DWORD addr); 

void msu_sram_read (int device, DWORD addr, BYTE *buf, int count); 
int msu_sram_writel (int device, DWORD addr, BYTE data); 

int msu_sram_wri te ( int device, DWORD addr, BYTE *data, int count); 

void msu_set_saddr (int device, DWORD addr); 

voidmsu_f test (int device); 
voidmsu_stest (int device); 



#endif 

/* prototypes for modules other than msu.c */ 
#ifndef MSU 

extern void msu init(int device); 
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extern 


void 


extern 


void 


extern 


int 


extern 


int 


extern 


BYTE 


extern 


void 


extern 


int 


extern 


int 


extern 


void 


extern 


int 


extern 


int 


extern 


void 


extern 


BYTE 


extern 


void 


extern 


int 


extern 


int 


extern 


void 


extern 


void 


extern 


void 



#endif 



msu_on(int device) ; 
msu_off (int device) ; 

msu_f lash_erase (int device); 

msu_f lash_erase_sector (int device, int sector); 
msu_f lash_readl (int device, DWORD addr) ; 

msu_f lash_read { int device, DWORD addr, BYTE *buf, int count); 
msu_f lash_writel (int device, DWORD addr, BYTE data); 
msu_f lash_write (int device, DWORD addr, BYTE *data, int count) 
msu_set_f addr (int device, DWORD addr); 

msu_check_f lash_tlm (void) ; 

msu_get_tlm (tlm_record_struct +r_tlm, int rec_num) ; 
msu_save_tlm (tlm_record_struct *r_tlm) ; 

msu_sram_readl (int device, DWORD addr); 

msu_sram_read { int device, DWORD addr, BYTE *buf, int count); 
tnsu_sram_writel (int device, DWORD addr, BYTE data); 
msu_sram_wri te ( int device, DWORD addr, BYTE *data, int count); 
msu_set_saddr (int device, DWORD addr); 

msu_ftest (int device) ; 
msu_stest (int device); 



z***************************************************************************** 



MSU.C 



Interface for the Mass Storage Units (MSU) . 

Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

The Mass Storage Units have 4 Mbytes of SRAM and 1/2 Mbyte of Flash. 

The Flash devices are the Am29F010. 



* Revision History: 



* Date Who what 



* 5 Sept 1996 Jah Creation 

* 22 April 1997 Jah Support for record keeping. 

* 

**+*************************************************************************/ 



# include 


"gen_ 


# include 


"bcm. h” 


#include 


"tlm.h" 


#define 


MSU 


# include 


"msu 


#undef 


MSU 


#include 


M dcs . h" 


#include 


■ eps.h" 


#include 


"pcb . h" 



/* Flash storage telemtry record pointers */ 

WORDmsu_tlm_rec_num =0; /* current location to record to */ 

WORDmsu_tlm_f irst_rec_num =0; /+ location of oldest record */ 

WORDmsu_tlm_last_rec_num = NO_REC_NUM; /* location of newest record */ 

#def ine LAST_TLM_REC_NUM ( (FLASH_DEVICE_SIZE/sizeof ( tlm_record_struct) ) - 1) 

/******************************++*+******************+**+*****+*++*+**+*+***** 



* void msu_init(int device) 

* 

* Initializes a MSU. 



********************** 



************** 



******************** t 



void msu_init(int device) 

{ 

pcb_write (device, 3, 0x80); 
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pcb_write (device, 2, 0x48); 



/* Point to landing zone for low power */ 



} /* End of msu_init() */ 



* 

* void msu_on(int device) 

* 

* Turns ON and initializes a MSU. 



•#************************************************************•********* + *****/ 



void msu_on(int device) 

{ 

WORDi; 



if {device == MSAO) 

eps_set_power (PWR_MSA, ON); 

else 

eps_set_power (PWR_MSB, ON) ; 

for (i = 0; i < OxlFFF; i + + ) /* pause for power ON */ 

msu_init (device) ; 

} /* End of tnsu_on() */ 



/***************************************************************************** 



* void msu_off(int device) 

* 

* Turns OFF a MSU. 

* 

****************************************************************************/ 



void msu_off(int device) 

{ 

if (device == MSAO) 

eps_set_power (PWR_MSA, OFF) ; 

else 

eps_set_power (PWR_MSB, OFF) ; 
} /* End of msu_o f f ( ) */ 



* WORD msu_f lash_codes ( int device) 

* 

* Examines the four Flash devices for a MSU to see if the manufacturer 

* code (0x01 = AMD) and the device type (0x20 = 29F010) are readable from 

* each . 

* 

****★**************************★**★*******★*★****★★★**★**★***************★★*/ 



WORD msu_f lash_codes ( int device) 

{ 

register int i; 

BYTE data; 

register WORD flag = 0; 



for 

( 



(i = 0; i < 4; i++) 



msu_set_faddr (device, 
pcb_write (device+1 , 0, 
msu_set_faddr (device, 
pcb_write (device+1 , 0, 
msu_set_faddr (device, 
pcb_write (device+1, 0, 



( (i * 0x00020000L) 
( (BYTE) OxAA) ) ; 

( (i* 0x0002 000 0L) 
( (BYTE) 0x55) ) ; 

( (i*0x00020000L) 
( (BYTE) 0x90) ) ; 



0x00005555L) ) ; 
0x00 002 AAAL) ) ; 
QX00005555L) ) ; 



msu_set_f addr (device, (i*0x00020000L) ) ; 
data = pcb_read (device+1 , 0); 



if (data == 0x01) 

{ 

msu_set_f addr (device, ( (i*0x00020000L) + 1L) ) ; 
data = pcb_read (device+1, 0) ; 



if (data -= 0x20) 

flag |= (l<<i) ; 



179 



else 

{ 

flag |= 0x80; 
break; 

} 

) 

else 

{ 

flag |= 0x8 0; 
break; 



/* perform read/reset */ 
msu_set_faddr (device, ( (i*0x00020000L) 
pcb_write (device+1, 0, ( (BYTE) OxAA) ) ; 

msu_set_f addr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, ( (BYTE) 0x55) ) ; 

msu_set_f addr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, ( (BYTE) OxFO) ) ; 



+ 0X00005555L) ) ; 
+ 0X00002AAAL) ) ; 
+ 0X00005555L) ) ; 



} 



pcb_write (device, 2, 0x48); 



/* Point to landing zone for low power */ 



return (flag) ; 

} /* End of msu_f lash_codes () */ 



/******★*★*★★★★*★********★*******★***★★★*★★*★**★****★***********★★**★★★***★++* 

* 

* int msu_f lash_erase (int device) 

* 

* Erases all Flash devices within a MSU. 

* 

*****•*•*•*•****■* + ■** + **** + *** + + *****■** + + + ■*■** + + **** + ** + *** + ****** + + + + *** + ** + * + + + + / 



int msu_f lash_erase (int device) 

{ 

register BYTE fdata; 
register int i; 
int pass = TRUE; 

DWORD x ; 



for (i = 0; (i < 4) && pass; i++) 

{ 

msu_set_f addr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, (BYTE) OxAA) ; 
msu_set_f addr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, (BYTE)0x55); 

msu_set_f addr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, (BYTE)0x80); 

msu_set_faddr (device, ( (i*0x00020000L) 
pcb_write (device+1 , 0, (BYTE) OxAA) ; 
msu_set_f addr (device, ( (i* 0x00020000L) 
pcb_write (device+1 , 0, (BYTE)0x55); 

msu_set_f addr (device, ( (i* 0X00020000L) 
pcb_write (device+1 , 0, (BYTE) 0x10) ; 



0x0 0005555L) ) 
0X00002AAAL) ) 
0x0 0005555L) ) 
0X00005555L) ) 
0x00 002AAAL) ) 
0X00005555L) ) 



fdata = pcb_read( device+1, 0) ; 
x = 0; 

while (((fdata & 0x80) != 0x80) && (x < ERASE_TIME_LIMIT) ) 

{ 

if (fdata & 0x20) 

{ 

fdata = pcb_read (device+1 , 0) ; 
if ( (fdata & 0x80) == 0x80) 
break; 



else 



pass = FALSE; 
break; 

) 

) 

fdata = pcb_read (device+1 , 0} ; 

X++ ; 

} /* End of WHILE */ 
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if (x == ERASE_TIME_LIMIT) 
pass = FALSE; 

} /* End of FOR */ 



pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 

if (x == ERASE_TIME_LIMIT) 
return (OxCO | i) ; 



else if (.'pass) 

return (0x80 | i) ; /* 0x80 = Error flag, i = device which failed */ 



else 

return (pass) ; 

} /* End of msu_f lash_erase ( ) */ 



/ 



***************************************************************** 



* int msu_f lash_writel (int device, DWORD addr, BYTE data) 

★ 

* Write one data byte to a flash address. 

******+***********************************++************************♦*******/ 

int msu_f lash_writel (int device, DWORD addr, BYTE data) 

( 

register BYTE fdata; 

int pass = TRUE; 

register WORD x; 



msu_set_f addr (device, (addr&Oxo0070000L) + 0x5555); 
pcb_write (device+1 , 0, (BYTE) OxAA) ; 

msu_set_f addr (device, (addr&0x00070000L) + 0x2AAA) ; 
pcb_write (device+1 , 0, (BYTE) 0x55) ; 

msu_set_faddr (device, (addr&Ox00070000L) + 0x5555); 
pcb_write (device+1 , 0, (BYTE) OxAO) ; 

msu_set_f addr (device, addr) ; 
pcb_write (device+1 , 0, data) ; 



fdata = pcb_read (device+1 , 0); 

X = 0; 

while (((fdata & 0x80) != (data & 0x80)) && (x < WRITE_TIME_LIMIT) ) 

( 

if (fdata & 0x20) 

< 

fdata * pcb_read (device+1 , 0); 
if ((fdata & 0x80) == (data & 0x80)) 
break; 



) 



else 

( 



) 



pass = 
break; 



FALSE; 



) 



fdata = pcb_read (device+1 , 0) ; 
x++ ; 



pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 



if (X == WRITE_TIME_LIMIT) 
pass = FALSE; 

return (pass) ; 

} /* End of msu_f lash_writel ( ) */ 



/*************************************+*+*******************+****************+ 



* int msu_f lash_write (int device, DWORD addr, BYTE *data, int count) 

it 

* Write data to a flash address (es). 



int msu_flash_write (int device, DWORD addr, BYTE *data, int count) 
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{ 



register BYTE fdata; 

int pass = TRUE; 

register WORD x; 



X = 0; 

while {(count--) && (x < WRITE_TIME_LIMIT) ) 

{ 

msu_set_f addr (device, (addr&0x00070000L) + 0x5555); 
pcb_write (device+1, 0, (BYTE) OxAA) ; 

msu_set_f addr (device , (addr&0x00070000L) + 0x2AAA) ; 

pcb_write (device+1, 0, (BYTE)0x55); 

msu_set_f addr (device, (addr&0x00070000L) + 0x5555); 
pcb_write (device+1, 0, (BYTE) OxAO) ; 

msu_set_f addr (device, addr); 
pcb_write (device+1 , 0, *data) ; 

fdata = pcb_read (device+1 , 0) ; 
x = 0; 

while (({fdata & 0x80) != (*data & 0x80)) && (x < WRITE_TIME_LIMIT) ) 

l 

if (fdata 1 0x20) 

{ 

fdata = pcb_read (device+1 , 0) ; 
if ((fdata & 0x80) == (*data & 0x80)) 
break; 



else 

{ 

pass = FALSE; 
break; 

} 

) 

fdata = pcb_read (device+l, 0) ; 

X+ + ; 

} 

addr++; 

data++; 



pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 

if (x == WRITE_TIME_LIMIT) 
pass = FALSE; 

return (pass) ; 

} /* End of msu_f lash_write () */ 

/*********************************************************************+*****★* 

* 

* BYTE msu_f lash_readl (int device, DWORD addr) 

* 

* Read one data byte from a flash address. 

* 

+*+++****+++***++*+++**+***********+*********+******+*********+++*+++****+++/ 

BYTE msu_f lash_readl (int device, DWORD addr) 

{ 

register BYTE data; 



msu_set_f addr (device, addr) ; 
data = pcb_read (device+1, 0) ; 

pcb__write (device, 2, 0x48); /* Point to landing zone for low power */ 

return (data) ; 

} /* End of msu_f lash_readl {) */ 

/***************************************************************************+* 



* voidmsu_f lash_read (int device, DWORD addr, BYTE *buf, int count) 

* 

* Read data from a flash address. This routine only increments the address 

* on the MSU if it has changed; thereby reducing many PCB Writes. The 

* overhead to check for a,c,b address roll-over is nothing compared to the 

182 



PCB Write. 



voidmsu_flash_read(int device, DWORD addr, BYTE *buf, int count) 

( 

register WORD a, b; 

WORD c ; 



msu_set_f addr (device, addr); 

a = (WORD) ( (addr) & OxOOOOOOFFL) ,- 

b = (WORD) (( (addr) & OxOOOOFFOOL) >>8) ; 

c = (WORD) ((( (addr) | 0x00400000L) & OxOOFFOOOOL) >>16) ; 

whi 1 e ( count - - ) 

( 

*buf = pcb_read (device+1 , 0) ; 
buf++ ; 

/* Now, setup for the next address to write to */ 
a+ + ; 

pcb_write (device, 0, a%0xl00) ; 
if (a > OxFF) 

( 

a = 0 ; 
b+ + ; 

pcb_write (device, 1, b%0xl00) ,- 
if (b > OxFF) 

( 

b = 0, 

C++; 

pcb_write (device, 2, c) ; 

) 

) 



} 

pcb_write (device , 2, 0x48); /* Point to landing zone for low power */ 

} /* End of msu_f lash_read ( ) */ 

/****************************************************************************♦ 

* 

* BYTE msu_sram_readl (int device, DWORD addr) 

* 

* Read data to a flash address. 

*******»********************************************************************/ 

BYTE msu_sram_readl (int device, DWORD addr) 

{ 

register BYTE data; 



msu_set_saddr (device, addr) ; 
data = pcb_read (device+l , 0); 

pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 

return (data) ; 

} /* End of msu_sram_readl () */ 

/************************************************+**********•****************** 

* 

* void msu_sram_read( int device, DWORD addr, BYTE *buf, int count) 

* 

* Read data to a flash address. This routine only increments the address 

* on the MSU if it has changed; thereby reducing many PCB Writes. The 

* overhead to check for a,c,b address roll-over is nothing compared to the 

* PCB Write. 

* 

♦♦♦♦♦♦I**********************************************************************/ 



voidmsu_sram_read (int device, DWORD addr, BYTE *buf, int count) 

( 

register WORD a, b; 

WORD c ; 



msu_set_saddr (device, addr) ; 
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a = (WORD) ( (addr) & OxOOOOOOFFL); 
b = (WORD) {( (addr) & OxOOOOFFOOL) >>8) ; 
c = (WORD) (( (addr) & OxOOFFOOOOL) >>16 ) ; 

while (count- - ) 

{ 

*buf = pcb_read (device+1, 0); 
buf ++; 

/* Now, setup the next address to write to */ 
a++; 

pcb_write (device, 0, a%0xl00) ; 
if (a > OxFF) 

( 

a = 0; 
b+ + ; 

pcb_write (device, 1, b%0xl00) ; 
if (b > OxFF) 

{ 

b = 0; 

C + + ; 

pcb_write (device, 2, c) ; 



) 



) 

pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 

} /* End of msu_sram_read ( ) */ 

/***************************************************************************** 

★ 

* int msu_sram_writel (int device, DWORD addr, BYTE data) 

* 

* Write data to a sram address. 

* 

♦♦♦w************************************************************************/ 

int msu_sram__writel (int device, DWORD addr, BYTE data) 

( 

msu_set_saddr (device , addr) ,* 
pcb_wri te (device+1, 0, data); 

pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 

} /* End of msu_sram_writel ( ) */ 



/****************************★***★★******************★************★*********** 

it 

* int msu_sram_write (int device, DWORD addr, BYTE *data, int count) 

* 

* Write data to a sram address. This routine only increments the address 

* on the MSU if it has changed; thereby reducing many PCB Writes. The 

* overhead to check for a,c,b address roll-over is nothing compared to the 

* PCB Write. 



******* 4 ********************************************************************/ 



int msu_sram_write (int device, DWORD addr, BYTE *data, int count) 

( 

register WORD a, b; 

WORD c ; 



msu_set_saddr (device , addr) ; 

a = (WORD) ( (addr) & OxOOOOOOFFL); 

b = (WORD) (( (addr) & OxOOOOFFOOL) >>8) ; 

C = (WORD) (( (addr) & OxOOFFOOOOL) >>16 ) ; 

while (count--) 

( 

pcb_write (device+1 , 0, *data) ; 
data++ ; 

/* Now, setup the next address to write to */ 
a++; 

pcb_write (device, 0, aVOxlOO) ; 
if (a > OxFF) 

{ 

a » 0 ; 
b++ ; 
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pcb_write (device, 1 , b%OxlOO) 
if (b > OxFF) 

{ 

b = 0 ; 

C + + ; 

pcb_write (device, 2 , c) ; 

} 

} 



} 

pcb_wnte (device, 2, 0x48); /* Point to landing zone for low power 

} /* End of msu_sram_write ( ) */ 

/*****************************•********************•****•**** + **♦*************** 



* void msu_f test (int device) 

* Tests a MSU’s Flash devices by writing a pattern to the Flash devices 

* and then reading it back. 

* t************************************************************************** 



voidmsu_f test (int device) 

i 

DWORD addr; 

int i, j; 

BYTE block [256] ; 

BYTE f block [256] ; 

DWORD t ; 

extern int icount; 



for (i = 0; i < 255; i++) 
block [i] = (BYTE) i ; 

block [255] = OxFE ; /* don't use OxFF which is erased value */ 



t = icount; 

msu_flash_write (device, 0, (BYTE *)block, 256); 
t = icount * t; 

dpr int ( "FLASH 256 byte block write time = %ld ticks. \n", t) ; 
t = icount; 

msu_flash_read (device, 0, (BYTE *)block, 256); 
t = icount - t; 

dprint ("FLASH 256 byte block read time = %ld ticks. \n", t) ; 
return; 



dprint ( "Writing Flash data (# = 64K)\n"); 

for (i = 0, addr = 0L; addr <= 0x0007FFFFL; addr += 256) 

( 

msu_flash_wn te (device, addr, (BYTE *)block, 256); 

if ( + + i *«= 256) 

( 

i = 0 ; 

dprint ( • •• ) . 

) 

> 

dprint ("\nReading back Flash data (# = 64K)\n M ); 

for (i = 0, addr • CL, addr <= 0x0007FFFF; addr += 256) 

( 

msu_f la 6 h_read < device, addr, (BYTE *)fblock, 256); 
for (j « 0 . i « 156; 3 ♦ ♦) 

( 

if (fblockh) ! ■ block[j]) 

{ 

dprint ( “Flash read back error at %1X, %X should be %X\n", 
(DWORD) (addr+j ) , fblock[j], block[j]); 
return, 

} 

} 

if (++i «« 256) 

{ 

i = 0 ; 

dprint ( "#" ) ; 

) 

} 
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dprint ( " \nFinished : OK . \n" ) ; 
} /* End of msu_ftest{) */ 



/******★***★***★*******★*★*★*★****★**★***★★******★★***★★★★**★★***★★★**★ i 
* 

* voidmsu_stest (int device) 

★ 

* Tests a MSU's SRAM devices by writing a pattern to the SRAM devices 

* and then reading it back. 

* 

**********************************************************************1 



voidmsu_stest (int device) 

{ 

DWORD addr; 

int i , j ; 

BYTE block [256] ; 

BYTE f block [256] ; 

DWORD t ; 

#def ine LAST_ADDR 0x0002FFFFL 
extern int icount; 



for {i = 0; i < 256; i++) 
block [i] = (BYTE) i ; 



t = icount ; 

msu_sram_write (device, 0, (BYTE *)block, 256); 
t - icount - t; 

dprint {’’SRAM 256 byte block write time = %ld ticks. \n", t) ; 
t = icount; 

msu_sram_read {device, 0, {BYTE *)block, 256); 
t = icount - t; 

dprint {"SRAM 256 byte block read time = %ld ticks. \n”, t) ; 
return; 



dprint { "Writing SRAM data {# = 64K)\n"); 
for {i = 0, addr = 0L; addr <= LAST_ADDR ; addr += 256) 
{ 

msu_sram_write {device, addr, {BYTE Mblock, 256); 

if {++i == 256) 

{ 

i = 0; 

dprint {"#"); 

} 

) 



dprint {’’\nReading back SRAM data {# = 64K)\n"); 

for {i = 0, addr = 0L; addr <= LAST_ADDR ; addr += 256) 

{ 

msu_sram_read {device, addr, (BYTE *)fblock, 256); 
for (j = 0; j < 256; j++) 

{ 

if { fblock [ j ] ! = block [j]) 

{ 

dprint {"SRAM read back error at %1X, %X should be %X\n 
(DWORD) (addr+j ) , fblock [j], block [j]); 
return; 

) 

} 

if (++i =• 256) 

{ 

i - 0; 

dprint ("#“); 

} 

) 

dprint { " \nFinished : OK . \n" ) ; 

} /* End of msu_stest{) */ 



/♦ fr ******************************************************************** 

* 

* void msu_se t_saddr ( int device, DWORD addr) 

★ 

* Set an address to the SRAM array on a particular device. 
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**************************************** 



/ 



void msu_set_saddr ( int device, DWORD addr) 

( 

pcb_write (device, 0, (WORD) ( (addr) & OxOOOOOOFFL) ) ; 
pcb_write (device, 1, (WORD) (( (addr) & OxOOOOFFOOL) >>8) ) ; 
pcb_write (device, 2, (WORD) (( (addr) & OxOOFFOOOOL) >>16 ) ) ; 

} /* End of msu_set_saddr () */ 



/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦★fr************************************************************ 

* 

* void msu_set_f addr (int device, DWORD addr) 

* Set an address to the Flash array on a particular device. 



**************************************************************************** j 



void msu_set_f addr ( int device, DWORD addr) 

( 

pcb_write (device, 0, (WORD) ( (addr) & OxOOOOOOFFL)); 
pcb_write (device, 1, (WORD) (( (addr) & OxOOOOFFOOL) >>8) ) ; 

pcb_write (device, 2, (WORD) ((( (addr) | 0x00400000L) & OxOOFFOOOOL) >>16) ) ; 
} /* End of msu_set_faddr ( ) */ 



/«*******«******************************************************************** 



* voidmsu_save_tlm( ) 

* 

* Save a telemetry structure to Mass Storage. 



****★*******★***************************************************************/ 



void msu_save_tlm { tlm_record_s true t *r_tlm) 

( 

int sector; 

int next_sector; 

int remaining; 

DWORD msu_ptr; 



/* Calculate, and add CRC to end of the record */ 

prepare_crc (r_tlm, sizeof ( tlm_record_struct) -2); /* -2 due to CRC */ 



/* Is there enough room on the existing sector to write out this telemetry 
* record, and the next record ? 

*/ 

msu_ptr = (DWORD) (msu_tlm_rec_num * sizeof ( tlm_record_struct) ) ; 
remaining = msu_ptr*FLASH_SECTOR_SIZE ; 
if (remaining < 2*sizeof ( tlm_record_struct) ) 

{ 

/* There is not enough room for this and the next record. Erase the 
* next highest sector (unless it is time to wrap around) . 

*/ 

sector = msu_ptr/FLASH_SECTOR_SIZE; 
if (sector == FLASH_SE CTOR_MAX ) 
next_sector = 0; 

else 

next_sector = sector+1; 

/* erase the "next" sector */ 

msu_f lash_erase_sector (MSA, next_sector) ; 

msu_f lash_erase_sec tor (MSB, next_sector) ; 

} 



/* Save the record to both MSA and MSB */ 

msu_flash_write (MSA, msu_ptr, (BYTE *)r_tlm, sizeof(tlm_record_struct)); 
msu_f lash_write (MSB, msu_ptr, (BYTE *)r_tlm, sizeof (tlm_record_s true t) } ; 



/* Update counter for next time */ 
if (next_sector == 0) 

msu_tlm_rec_num - 0; 

else 

msu_tlm_rec_num++ ; 

} /* End of msu_save_tlm ( ) */ 
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* int msu_get_tlm( ) 

★ 

* Retrieve a telemetry structure from Mass Storage. 



************************************************#***************************/ 



int msu_get_tlm (t lm_record_struct *r_tlm, int rec_num) 

{ 

int flag = NO_EEROR; 

DWORD msu_ptr; 



msu_ptr = (DWORD) (rec_num * sizeof(tlm_record_struct)),- 

msu_f lash_read (MSA, msu_ptr, (BYTE* ) r_tlm, sizeof ( tlm_record_struct ) ) ; 
if (check_crc (r_tlm, sizeof (tlm_record_struct) ) != 0) 

( 

/* Try the other Mass Storage Flash */ 

msu_f lash_read (MSB, msu_ptr, (BYTE* ) r_tlm, sizeof (tlm_record_struct) ) ; 
if (check_crc (r_tlm, sizeof (tlm_record_s true t) ) != 0) 

flag = ERROR/ 

) 

return (flag) ; 

} /* End of msu_get_tlm ( ) */ 



/***************************************************************************** 

* 

* int msu_check_f lash_tlm( ) 

* 

* Check Flash for already stored telemetry records. This is first called 

* when the system is Reset to see if any prior state history has already 

* been saved to the Flash. 



****************************************************************************/ 



int msu_check_f lash_tlm (void) 

{ 

int rec_num ; 

DW ORD m su_p t r ; 

int tryb = FALSE; 

DWORD etime; 

int flag = NO_ERROR ; 

int wrap = FALSE; 

tlm_record_struct rtlm; 

tlm_record_struct *r_tlm; 



/* First, check using MSA. */ 

/* Do a search looking for unused portions of the Flash. */ 
if ( (rec_num * msu_£ lash_search (MSA) ) != NO_TLM_F IND ) 

{ 

wrap = <rec_num 4, TLM_WRAP) ? TRUE : FALSE; 
rec_num 4- -TLM_WRAP ; 

/* MSA has an empty location. */ 

msu_ptr « (DWORD) (rec_num * sizeof (tlm_record_struct) ) / 

msu_f lash_read 'MSA, msu_ptr, (BYTE* ) r_tlm, sizeof ( tlm_record_struct )) ; 
if (check_crc ( r _t lm, s i zeof ( tlm_record_struct ) ) ! = 0) 

tryb - TR’JE, 

) 

else 

tryb « TRUE. /• attempt the same search with MSB. */ 



if (tryb) 

{ 

if ((rec nun - *«u_! lash_search (MSB) ) == NO_TLM_FIND) 

{ 

/• ERROR Erase both MSA and MSB. And assume NO recorded data. */ 

msu_f lash_erase (MSA) ; 

msu_f 1 ash_erase (MSB) ; 

rec_num ■ 0/ 

flag « ERROR; 

) 



/* MSB has an empty location. */ 

wrap = (reejnum & TLM_WRAP) ? TRUE : FALSE; 

rec_num &= -TLM_WRAP ; 
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msu_ptr = (DWORD) (rec_num * sizeof (tlm_record_struct ) ) ; 

msu_f lash_read (MSB, msu_ptr, (BYTE* ) r_tlm, sizeof ( tlm_record_struct )) ; 
if (check_crc (r_tlm, sizeof (tlm_record_struct) ) != 0) 

{ 

/* ERROR: Erase both MSA and MSB. And assume NO recorded data. */ 

msu_f lash_erase (MSA) ; 

msu_flash_e rase (MSB) ; 

rec_num = 0; 

flag = ERROR; 

) 

else 

( 

/* MSA had problems, but not MSB. So, erase MSA. */ 
msu_f lash_erase (MSA) ; 

} 



/* Now, process the last recorded record by using it as the most recently saved 
* history regarding the state of the spacecraft. 

*/ 



/* If the record number returned from the search is not zero, then 

* assume that there is a prior record and this is not the first time 

* recording. 

* If the record number returned from the search is zero, then this could be 

* the first time recording (or at least first timer recording since the 

* Flash was erased) . And thus, there is no history of data to examine. 

*/ 



if (flag == ERROR) 

{ 

/* No state history, both MSA and MSB have just been erased. 
* Begin as if ejection has just occurred. 

*/ 

msu_tlm_rec_num = 0; 
msu_tlm_last_rec_num = NO_REC_NUM; 
msu_tlm_f irst_rec__num = 0; 

} 

else if (wrap == FALSE) 

{ 

if (rec_num == 0) 

{ 

/* Empty Flash */ 
msu_tlm_rec_num = 0; 
msu_tlm_last_rec_num = NO_REC_NUM; 
msu_tlm_f irst_rec_num = 0; 

} 

else 

{ 

/* Flash has data, but no wrap around is in effect */ 
msu_tlm_rec_num = rec_num; 
msu_tlm_last_rec_num = rec_num - 1; 
msu_tlm_f irst_rec_num = 0; 

msu_get_tlm(&tlm_record, msu_tlm_last_rec_num) ; 

} 

} 

else if (wrap == TRUE) 

{ 

/* Flash has data, and wrap around is in effect */ 
msu_tlm_rec_num = rec_num; 
if (rec_num == 0) 

msu_tlm__last_rec_num - 0; 

else 

msu_tlm_last_rec_num = rec_num - 1 ; 

/* calculate msu_tlm_f irst_rec_num */ 

msu_tlm_f irst_rec_num = msu_calc_first_rec(rec_num); 

msu_get_tlm (&tlm_record, msu_tlm_last_rec_num) ; 

) 



} /* End of msu_check_f lash_tlm ( ) */ 



/•**••************************************************************************ 



* msu_f lash_search ( ) 

* 

* Check Flash via a "top" binary search. That is, use an increasing memory 

* binary search to see if any "empty" tlm records exists (not recorded yet) . 
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* When performing the "divide and conquer", always take the upper portion of 

* memory. 

* 

* If no "empty" record is found, perform a search starting at the bottom and 

* look for the first "empty" record. This is not a fast search (its linear) , 

* but there is no way around it since one has no idea where the first hole 

* could be and there is no ordering. 

* 

* The "empty" record number is returned. 
*********************+**************************************+***************/ 



WORDmsu_f lash_search (int device) 

{ 

WORDbottom, top, mid, r, sector; 
DWORD etime; 

DWORD msu_ptr; 



/* Binary Search */ 

/* These are the end points of the tlm record storage. Attempt to find 
* an "empty" storage record. Assuming no lower "bottom" holes exist. 
*/ 

bottom = 0; 

top = FLASH_SIZE/sizeof ( tlm_record_struct) ; 
while ( (top - bottom) > 1) 

{ 

mid = (bottom + top)/2; 

msu_ptr = mid* sizeof (tlm_record_struct) ; 
msu_f lash_read (device, msu_ptr, fcetime, sizeof (DWORD) ) ; 
if (etime != OxFFFFFFFFL) /* in use, look higher */ 
bottom = mid; 

else 

top = mid; 

} 



msu_ptr = bottom* s izeof (tlm_record_st rue t) ; 
msu_flash_read (device , msu_ptr, retime, sizeof (DWORD) ) ; 
if (etime == OxFFFFFFFFL) 

return (bottom J NO_TLM_WRAP) ; 
else if (etime == OxFFFFFFFFL) 
return (top | N 0_TLM_ WRAP ) ; 

/* ELSE -> not found via binary search... continue....*/ 

/* Try a "bottom" based search. That is, use a decreasing memory 
* binary search. */ 

for (sector = 0; sector <= FLASH_SECTOR_MAX; sector++) 

( 

r = ( (sector+1) * FLASH_SECTOR_SIZE) /sizeof (tlm_record_struct) ; 
msu_ptr * r * sizeof ( tlm_record_struct) ; 
msu_flash_read (device, msu_ptr, retime, sizeof (DWORD) ) ; 
if (etime ! = OxFFFFFFFFL) /* in use, skip this sector */ 
continue ; 

else 

( 

/* Examine this sector for the first empty location */ 

/* Do this with a binary search within this sector */ 

bottom = (sector * FLASH_SECTOR__SIZE) /sizeof (tlm_record_struct) ; 

top = (((sector + 1) * FLASH_SECTOR_SIZE) /sizeof ( tlm_record_struct) ) - 1 

while ( (top - bottom) > 1) 

{ 

mid = (bottom + top)/2; 

msu_ptr = mid* sizeof ( tlm_record_struct) ; 
msu_flash_read (device, msu_ptr, &etime, sizeof (DWORD) ) ; 
if (etime != OxFFFFFFFFL) /* in use, look higher */ 
bottom = mid; 

else 

top = mid; 

} 

msu_ptr = bottom*sizeof ( tlm_record_struct) ; 

msu_f lash__read (device, msu_ptr, retime, sizeof (DWORD) ) ; 

if (etime == OxFFFFFFFFL) 

return (bottom | TLM_WRAP) ; 
else if (etime == OxFFFFFFFFL) 
return (top | TLM_WRAP) ; 

} 

) 

return (NO_TLM_FIND) ; 

} /* End of msu_f lash_search ( ) */ 
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********************* 



* int msu_f lash_erase_sector (int device, int sector) 

* 

* Erases appropriate sector in the Flash array. The sector is the absoulute 

* sector for the entire array of Flash memory, thus the relative sector 

* within the device must be determined, as well as the actual device itself. 

A*#*************************************************************************/ 



int msu_flash_erase_sector (int device, int sector) 

( 

register BYTE fdata; 
register int pass = TRUE; 

DWORD base; 

int x; 



/* First, determine which of the Flash devices contains the absolute sector. 
* The compares are quicker than using arithmetic . 

*/ 

if (sector < FLASH_SECTORS_PER_DEVICE) 
base = OL; 

else if (sector < FLASH_SECTORS_PER_DEVICE*2) 
base = FLASH_DEVICE_SIZE; 
else if (sector < FLASH_SECT0RS_PER_DEVICE*3 ) 
base = FLASH_DEVICE_SIZE*2; 
else if (sector < FLASH_SECTORS_PER_DEVICE*4) 
base = FLASH_DEVICE_SIZE*3; 

msu_set_faddr (device, (base + 0x00005555L) ) ; 
pcb_write (device+1, 0, (BYTE) OxAA) ; 
msu_set_faddr (device, (base + Ox00002AAAL) ) ; 
pcb_write (device+1, 0, (BYTE) 0x55); 
msu_set_faddr (device, (base + 0x00005555L) ) ; 
pcb_write (device+1 , 0, (BYTE) 0x80); 
msu_set_f addr (device, (base + 0x000055551*) ) ; 
pcb_write (device+1, 0, (BYTE) OxAA) ; 
msu_set_f addr (device, (base + 0x00002AAAL) ) ; 
pcb_write (device+1, 0, (BYTE) 0x55); 

/* Relative sector within the Flash device in address bits A16 - A14 . */ 
msu_set_f addr (device, (base + (sectorVFLASH_SECTORS_PER_DEVICE) << 14)); 
pcb_write (device+1, 0, (BYTE) 0x30); 



fdata = pcb_read (device+l, 0); 
x = 0 ; 

while (((fdata & 0x80) != 0x80) && (x < ERASE_TIME_LIMIT) ) 

( 

if (fdata & 0x20) 

( 

fdata = pcb_read (device+1 , 0) ; 
if ((fdata & 0x80) == 0x80) 
break; 

else 

( 

pass = FALSE; 
break; 

) 

) 

fdata = pcb_read (device+1, 0); 
x++ ; 

} /* End Of WHILE */ 



pcb_write (device, 2, 0x48); /* Point to landing zone for low power */ 



if (X == ERASE_TIME_LIMIT) 
retum(0x80 | sector) ; 

else 

return (0) ; 

} /* End of msu_f lash_erase_sector () */ 



********* 



*********** 



************* 



int msu_calc_f irst_rec (int rec_num) 

Determine the first (oldest) record used in Flash based on the current 
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record number and assuming data wrap around is in effect. 



* This location is the first complete (whole) record in the sector after 

* the sector that contains the current record, rec_num. 

* 

****************************************************************************/ 

int msu_calc_f irst_rec (int rec_num) 

{ 

int s, snext, r; 



/* Determine the next sector */ 

s = (rec_num*sizeof (tlm_record_struct) ) /sizeof (FLASH_SECTOR_SIZE) ; 
if (s == FLASH_SECTOR_MAX ) 
snext = 0 ; 

else 

snext = s + 1 ; 

/* determine # of complete records in Flash upto the next */ 
r = (snext*sizeof (FLASH_SECTOR_SIZE) ) /sizeof (tlm_record__struct) ; 

/* the next complete record in the next sector is just the next record */ 

return (r+l) ; 

} /* End of msu_calc_f irst_rec () */ 



End of msu.h, msu.c 
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pcb.h, pcb.c 



* PCB . H 

* Include file for Peripheral Control Bus (PCB) software interface. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* Revision History: 



* Date Who What 



* 4 March 1993 Jah Creation 

* 8 Sept 1995 - Jah Adoption to PANSAT System Controller architecture 

* 

**•»••****************************************************★**********•**★*******/ 



#if def PCB 

void pcb_init (void) ; 

void pcb_portc (int bitnum, int mode); 

unsigned int pcb_read (unsigned int select, unsigned int addr); 

void pcb_write (unsigned int select, unsigned int addr, unsigned int value); 

#endif 

/* prototypes for modules other than pcb.c */ 

#ifndef PCB 

extern void pcb_ini t (void) ; 

extern void pcb_portc (int bitnum, int mode); 

extern unsigned int pcb_read (unsigned int select, unsigned int addr) ; 

extern void pcb_write (unsigned int select, unsigned int addr, unsigned int value); 

#endif 



/* Macros for PCBW and PCBR */ 

#define pcbw_m (select, addr, value) {\ 
outp(PCB_PPI_PORTA, (value)); \ 

OUtp (PCB_PPI_PORTB, PCB_READ_OFF | PCB_WRITE_OFF | ((select) & OxOOOF) | (((addr) & 0x0003) << 4) 

\ 

OUtp (PCB_PPI_PORTB, PCB_WRITE_0N | ((select) & OxOOOF) | (((addr) & 0x0003) << 4) ); \ 

OUtp (PCB_PPI_PORTB, PCB_WRITE_OFF | ((select) & OxOOOF) | (((addr) & 0x0003) << 4) ); } 

#define pcbr_m (select , addr, value) (\ 

OUtp ( PCB_PPI_PORTB , PCB_READ_OFF | PCB_WRITE_OFF | ((select) & 0X000F) | (((addr) & 0x0003) << 4) ) 

\ 

OUtp ( PCB_PPI_PORTB , P CB_READ__ON | ((select) & OxOOOF) | (((addr) & 0x0003) << 4) ); \ 

OUtp ( PCB_PPI_CTRL, 2) ; \ 

OUtp ( PCB_PPI_CTRL, 3 ) ; \ 

OUtp (PCB_PPI_PORTB, PCB_READ_OFF | ((select) & OxOOOF) | (((addr) & 0x0003) << 4) ); \ 

(value) = inp(PCB_PPl_PORTA) ; ) 



/+***+**++******+**************************************************** 

* 

* PPI Interface on a DCS to control the Peripheral Control Bus . 

* Using Mode 2 (OxCO) the PPI is programmed to support strobed 

* bidirectional bus I/O using Port A. Port B is used as output, and 

* port C is used for handshaking and other output purposes. 

* 

* Port A contains the data (byte value) which is moved across the 

* control bus. Port B contains the device selection and sub-address 

* control bits, and the Read and Write strobes. 

* 

*************************************************************************★**/ 



#def ine PCB_PPI_BASE 
#def ine PCB_PPI_PORTA 
# def ine PCB_PPI_PORTB 
#def ine PCB_PPI_PORTC 
# def ine PCB_PPI CTRL 



0x100 

PCB_PPI_BASE + 0 
PCB_PPI_BASE-»-2 
PCB_PPI_BASE+4 
PCB PPI BASE+6 



#def ine PCB_PPI INIT OxCO 



/* Read and Write Line Toggling Controls */ 
# def ine PCB_READ_ON 0x40 

#def ine PCB READ OFF OxCO 
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# define PCB_WRITE_ON 0x80 

idefine PCB_WRITE_OFF OxCO 



/★★♦♦A************************************************************************ 

***************************************************************************** 

★ 

* Devices on the PCB 

* 

* These devices are selected via the DCS PPI for PCB control. 

* PPI port B is the addressing register. The following device 

* selects use bits 3 - bits 0 (D3 - DO) of PPI Port B. 

* 

* Note that the low order bit (DO) is used to differentiate 

* between the two selects on the same unit. Device subaddresses 

* are not included here, since they are particular to a device. 

* 

****************************************************************************/ 



#def ine 


SCA 


0x02 




#def ine 


SCA0 


SCA 


/* System Control A */ 


#def ine 


SCA1 


(SCA+1 ) 




#def ine 


SCB 


OxOA 




#def ine 


SCB0 


SCB 


/* System Control B * / 


#def ine 


SCB1 


(SCB+1) 




#def ine 


TMUXA 


0x04 




#def ine 


TMUXA0 


TMUXA 


/* Analog MUX A */ 


#def ine 


TMUXA 1 


(TMUXA+1) 


#def ine 


TMUXB 


OxOC 




#def ine 


TMUXB0 


TMUXB 


/* Analog MUX B */ 


#def ine 


TMUXB 1 


(TMUXB+1) 


#def ine 


MSA 


0x06 




#def ine 


MSA0 


MSA 


/* Mass Storage A */ 


#def ine 


MSA1 


(MSA+1) 




#def ine 


MSB 


OxOE 




#def ine 


MSB0 


MSB 


/* Mass Storage B */ 


#def ine 


MSB1 


(MSB+1) 




#def ine 


RF 


0X00 




# define 


RF0 


RF 


/* RF System */ 


#def ine 


RF1 


(RF+1 ) 




#def ine 


EPS 


0x08 




#def ine 


EPS0 


EPS 


/* Electrical Power System 


# define 


EPS1 


(EPS+1) 




/* EPS Selects 


S3 -SO */ 




#define 


EPS_PORT_S0 


0x08 


#def ine 


E PS_PORT_S 1 


0x08 


#def ine 


EPS_PORT_S2 


0x08 


#def ine 


EPS_PORT_S3 


0x08 


#def ine 


E PS_PORT__S4 


0x09 


#def ine 


EPS_PORT_SS 


0x09 


#def ine 


EPS_PORT_S6 


0x09 


#def ine 


EPS_PORT_S7 


0x09 



/* EPS Sub-addresses 
idefine EPS_PORT_AO 
#define EPS_PORT_Al 
# define EPS_PORT_A2 
# define EPS_PORT_A3 
#def ine EPS_PORT_A4 
# define EPS_PORT_A5 
#def ine EPS_PORT_A6 
#def ine EPS PORT A7 



A1-A0 */ 
0x00 
0x01 
0x02 
0X03 
0x00 
0x01 
0x02 
0x03 



/**★****************************♦**** 

************************************ 

* 

* Subsystem addresses of PCB devices 

* 

A***************************************************************************/ 

/*************♦*************************************************************** 

* Mass Storage 

* PPI Interface: Indexed using MSxl 

* Data Port: Indexed using MSx2 

a***************************************************************************/ 



************** 



******************** 
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# define MS_PPI_BASE 
#def ine MS_PPI_PORTA 
#def ine MS_PPI_PORTB 
# define MS_PPI_PORTC 
#def ine MS PPI CTRL 



0 

MS_PPI_BASE+0 

MS_PPI_BASE+1 

MS_PPI_BASE+2 

MS PPI BASE+3 



/********************+***********♦*******+*************#********************** 

* 

* PCB . C 

* 

* Interface routines for the Peripheral Control Bus (PCB) . 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* Revision History: 

* Date Who What 



* 4 March 1993 Jah Creation 

* 8 Sept 1995 Jah Adoption to PANSAT System Controller architecture 

* 24 April 1996 Jah Make PCB functions non-interruptable . 

**********************************************************************★*****/ 



# include 


w gen_def s .h" 


# include 


"gen_apis . h" 


#def ine 


PCB 


# include 


"pcb. h” 


#undef 


PCB 


# include 


"dcs .h n 



/ 



pcb_init () 

Initializes the PCB by preparing the PPI controlling the PCB to work 
in the bidirectional strobed data mode, and to make sure that no 
read or write commands are occuring on the PCB. 

****************************************»**********************************/ 



void pcb_init (void) 

{ 

outp ( P CB_ PPI _CTRL , PCB_PPI_INIT) ; 

outp ( PCB_PPI_PORTB , OxCO) ; 

pcbjportc(0, OFF); 
pcb_portc (1, SET) ; 
pcb_portc (2, RESET); 
pcb^portc (2, SET) ; 

} /* End of pcb_init() */ 



/************************************************************★**************** 



/* Modem Power OFF */ 

/* pci = PPI Input Strobe ON */ 
/* Reset EDAC Error Acknowledge */ 



* pcb_portc() 

* 

* Toggles the three output bits of Port C on the PPI. 

* 

♦♦♦♦♦■fr**********************************************************************/ 



void pcb_jportc (int bitnum, int mode) 

( 

register unsigned char temp; 
register WORD state; 



mode &= 0x01 ; 



/* make sure only bit DO is used in mode */ 
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state = disable_ints ( ) ; 

switch (bitnum) 

( 

case 0 : 

temp = mode; 
break; 

case 1 : 

temp = 0x02 | mode; 
break; 

case 2 : 

temp = 0x04 | mode; 

break ; 

default : 

temp = OxFF; 

} 



if (temp != OxFF) 

outp { PCB_PPI_CTRL , temp) ; 

if (state) 

enable_ints ( ) ; 

} /* End of pcb_portc() */ 



/*******************★*************************************★******************* 



* pcb_read ( ) 

* 

* Read one data (byte) from the Peripheral Control Bus via the onboard PPI . 

* 

t***************************************************************************/ 

WORD pcb_read (unsigned int select, unsigned int addr) 

{ 

/* Note.- register not used so that this routine is re-entrable 
* at the point of the last statement, return(temp) . 

*/ 

register WORD temp = (select & OxOOOF) | ((addr & 0x0003) << 4); 

WORD value; 

register WORD state; 



state = disable_ints ( ) ; 



/* Set Device Select and address 
outp ( PCB_PPI_PORTB , OxCO | temp); 

outp ( PCB_PPI_PORTB , 0x40 | temp); 
outp ( PCB_PPI_CTRL , 2); 
outp(PCB_PPI_CTRL, 3); 
outp ( PCB_PPI_PORTB , OxCO | temp) ; 



without read or write commands */ 



/* 


PB7 


= /RD 


goes LOW */ 




/* 


PCI = 


/Strobe goes LOW */ 




/* 


PCI = 


/Strobe goes HIGH */ 


/* 


PB7 


ii 

\ 

D 


goes HIGH */ 



value = inp ( PCB_PPI_PORTA) ; 

if (state) 

enable_ints ( ) ; 

/* Note: enabling interrupts BEFORE returning from PCBR can result 

* in another piece of software (e.g. inside an ISR) calling PCBR 

* during the stack manipulations following the above _enable() . 

* This would actually result in the issuing of the new PCBR and 

* returning the value of the PCBR, followed by that piece of software 

* returning via an IRET, and then the PCBR that was interrupted would 

* coutinue with its return (...). 

*/ 

return (value) ; 

} /* End pcb_read() */ 



z***************************************************************************** 



* pcb_write() 

* Write one data (byte) from the Peripheral Control Bus via the onboard PPI. 

* 

******************************************************** 4 *******************/ 
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void pcb_write (unsigned int select, unsigned int addr, unsigned int value) 

( 

register WORDtemp = (select & OxOOOF) j ((addr & 0x0003) << 4) 
register WORD state; 

state = disable_ints(); 

outp ( PCB_PPI_PORTA, value); 

/* Set Device Select and address without read or write commands */ 

OUtp ( PCB_PPI_PORTB , (PCB_READ_ON | PCB_WRITE_ON) | temp) ; 

/* Toggle the Write line */ 

outp (PCB_PPI_PORTB, ( PCB_WRITE_ON | temp) ) ; 
outp ( PCB_PPI_PORTB , (PCB_WRITE_OFF | temp) ) ; 

if (state) 

enable_ints () 

} /* End pcb_write() */ 

End of pcb.h, pcb.c 
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print.h, print.c 

/+*****★***★★*★★★*★**** 



**************************************************** 



PRINT.H 

DCS print f : void dprint (char ‘format,...) 

Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

Revision History: 



* 

* 


Date 




Who 


What 


* 


1 Feb 


1991 


Jah 


Creation (Star) 


* 


2 Nov 


1993 




Jah Adopted for DCS (from Star) 



****************************************************************************/ 



/* Include specifics for PRINT.C */ 

#if def PRINT 

/* Internal routines to print.c */ 
static int get_width (char *, int *) ; 

static int get_precision (char *, int *) ; 

static void print_f p (char *obuf, double x, int 

static void print_ptr (char *, void far *, int) 
static unsigned long int power (unsigned int 

#endif 



precision, int width) ; 
x, unsigned int y) ; 



/* Include for all other modules */ 

#ifndef PRINT 

extern void dprint (char ‘format, ...) ; 

#endif 



★ 

♦ PRINT.C 

♦ 

* DCS printf: void dprint (char ‘format,...) 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

‘ Revision History: 

★ = = — — — = = ss s-- = = = - = = 

* Date Who What 



* 1 Feb 1991 

* 2 Nov 1993 

* 18 Apr 1996 



Jah Creation 

Jah Adopted for DCS 

Jah FP support 

*********************************************************/ 



#include 
#include 
#include 
#include 
# include 



<stdarg .h> 
cctype .h> 
<string . h> 
<stdio .h> 
<stdlib . h> 



#include "gen_def s .h" 

#def ine PRINT 

#include "print.h" 
#undef PRINT 

#include "scc.h" 



#def ine NEGATIVE 1 
#def ine PLUS 2 
#def ine NEAR_PTR 1 
#define FAR_PTR 2 



/* 



******+**********★★***+**************************************** 
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* get_width() 

★ 

* Get the width for a specific output parameter. This is a number field 

* placed in front of the format type of a star_print format. This 
number is either followed by a format type (letter) or a period (.) . 

* The period denotes that a precision field will also be specified. 

* 

* This routine outputs the width. 

★ 

**************************************************************************** j 



static int get_width (char *format, int *i) 

{ 

int itemp; 

char buf [10] ; 
int n; 



itemp = * i ; 
n = 0; 

buf [n] = NULL_CHAR; 

while (isdigit (format [itemp] ) ) 

buf [n++] = format [ itemp++] ; 
buf [n] = NULL_CHAR; 

*i « itemp; /* update the marker in format string +/ 

return (atoi (buf) ) ; 

} /* End of get_width() */ 



/***********************★***************************************************+* 



* get_precision() 

* 

* Get the precision for a specific output parameter. This is a number 

* field which can be preceeded by a + (default) or This number is 

* then followed by a format type (letter) . 

* 

* See print_fp() for more details. 

* This routine outputs the precision which can be positive or negative. 

****************************%***********************************************/ 



static int get_precision (char *format, int *i) 

{ 

int itemp; 

char buf [10] ; 

int n ; 

int sign; 

int precision. 



itemp = * i ; 
sign = PLUS, 

if ( format [ i t*mpl -• •-•) 

( 

Sign • NEGATIVE; 
itemp • • , 

) 

else if ( f orwvAt ( i t^mpl •« ' + ') 

x t. e-wp- . . , /* already is PLUS don’t need to flag this */ 

n = 0; 

buf [n] ■ NULL *HA> . 

while (i6d;q;t loriMt [itemp] ) ) 

buf[n««! • format [itemp++] ; 
buf [n] - NULL CHA* , 

precision - atoi(buf), 
if (sign NEGATIVE) 

precision *- -1; 

*i = itemp; /* update the marker in format string */ 

return (precision) ; 

} /* End of get_precision () */ 



/a**************************************************************************** 
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print_fp 0 

Display value of a floating point number, either float or double. 

(The float is already casted as a double when passed to this routine. 



************** 



**★******************/ 



static void print_fp (char *obuf, double x, int precision, int width) 

{ 

char buf [40] ; 

int buf _cnt = 0 ; 

double q, ql, q2; 

long intxi, d; 
int c, n; 



gcvt(x, precision, buf); 
strcat(obuf, buf); 
return; 



if (x -* 0.0) 

! 

buf [buf_cnt + + ] = 'O'; 
buf [buf_cnt++] = 1 . 1 ; 
buf [buf_cnt++] = 'O'; 
buf [buf_cnt] = NULL_CHAR; 
strcat(obuf, buf); 
return,- 

} 



/* Adjust precision to correct defaults for FP printing */ 
if (precision > 8) 
precision = 8; 
if (precision < 0) 
precision = 0; 



if (x < 0.0) 

{ 

buf [buf_cnt++] = ' - ' ; 
x *= -1; 

) 

/* Determine # of digits BEFORE the decimal place */ 
for (c = 0, q = x; q > 1; C++) 
q /= 10.0; 



if (c == 0) /* add leading zero before . -> O.xyz */ 

buf [buf_cnt++] = 'O'; 

/* Display the digits BEFORE the decimal place */ 
for (q = x, n = 0; n < c; n++) 

( 

d = power(10, (c-l) -n) ; 
ql = q/d; 



buf [buf_cnt++] = 'O' + (unsigned 
q2 = (unsigned int)ql * d; 

q = q - q2; 

) 

buf [buf_cnt++] = ' . ‘ ; 

for (n * 0; n < precision; n++) 

{ 

q = q * 10; 

ql = (unsigned int) q; /* 

buf [buf_cnt++] = *0‘ + ql; /* 

q = q - ql; /* 

) 

buf [buf_cnt++] = NULL_CHAR ; 
strcat(obuf, buf); 
return; 



int)ql; /* TOP digit */ 

/* Only the most significant */ 

/* Remove largest factor of 10 */ 



O.xyz --> x.yz */ 

TOP digit (x) */ 

remove largest factor of 10 */ 



} /* End of print_fp() */ 



/*************************************************************** 



*********** 



print jptr () 
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Pointer print for FAR pointer ( SEGMENT : OFFSET ) or 
NEAR pointer (OFFSET) . 

The parameter mode indicates if this is for NEAR or FAR pointer 
printing. 

The format for output is: 

0 1 
(char position) 01234567890 

NEAR xx xx <-- the OFFSET 

FAR xxxxryyyy < - - the OFFSET : SEGMENT 



***■***•**■**********•*****■*•***■*• + ************************************★**** 



/ 



static void print_ptr (char *obuf, 

( 



int 

unsigned char 

char 

int 

unsigned long 



n; 
c ; 

buf [10] ; 
b_cnt ; 
p; 



void far *ptr. 



int mode) 



if (mode == FAR_PTR) 
b_cnt = 9 ; 

else 



b_cnt = 4 ; 

p = (unsigned long int) ptr; 
buf [b_cnt- - ] = NULL_CHAR; 
for (; b_cnt >= 0; b_cnt - - ) 

( 

c = (unsigned char) (OxOOOOOOOFL & p) ; 
if ( (C >= 0) && (c <= 9) ) 

buf [b_cnt] = c + 'O'; 

else 



} 



buf [b_cnt] * (c - OxOA) + 1 A* ; 

p >>= 4; 

/* p>> = l; p>>=l ; p > > = 1 ; p>>*l; */ 
if (b_cnt == 5) 

buf[--b_cnt] = 



strcattobuf, buf) ; 

} /* End of print_ptr() */ 



f 



dprint 0 
Printf for DCS. 

Special characters (translated by compiler!) 



"\n" 


CRLF 


"\\" 


\ 


-\t- 


V 


Format 


: V [width] [.precision] [size] type 


Types 


\c 


char 


*«s 


string (char *) 


%d 


int (as decimal) 


Vi 


int 


Vu 


unsigned int 


\x 


int (as hex) 


*X 


int (as HEX) 




NEAR pointer (OFFSET) 


VP 


FAR pointer (SEGMENT: OFFSET) 


Vf 


fp ( Vlf -> double, Vf ->float) 


size 


L/l - 


long 


H/h - 


short 



/ 



void dprint(char *format , . . . ) 

{ 



/* ptr to argument list */ 

/* index in format string */ 
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va_list arg_ptr; 
int i; 



int 


temp_int ; 


long 


temp_long; 


double 


temp_fp ; 


char 


temp_char ; 


char 


*temp_charptr; 


void 


far *temp_ptr; 


void 


* temp_pt r_near ,- 


static 


char buf [20] ; 


static 


char obuf [200] ; 


int 


hflag, lflag; 


int 


hex_upper ,- 


int 


width, precision 


static 


char crlf [3] 


int 


n; 



/* temp buffer */ 

/+ the output buffer */ 



{CR, LF, NULL_CHAR}; 



/* start variable arguement fetching */ 
va_start (arg_ptr, format); 

i = 0; 

Obu f [ 0 ] = NULL_CHAR ; 

while ( format [i] != NULL_CHAR ) 

{ 

hex_upper = hflag = If lag = FALSE; 

width = 100; 

precision = 3; 

buf[0] = NULL_CHAR ; 

switch (format [i] ) 

{ 

case CR: 
case LF: 
i + + ; 

strcat(obuf, crlf ); 
break; 



case ' % ■ : 
i++ ; 

/* width ? +/ 

if ( (format [i] >= '0') && (format [i] <= '9*)) 

{ 

/* i++; */ /* or more */ 

width = get_width (format, &i) ; 

} 

/* .precision ? */ 
if (f ormat [i] == 

{ 

i++; /* or more */ 

precision = ge t_prec is ion (format , &i) ; 

) 

if ( (format [i] == ' h ' ) |j (format [i] == 'H')) 
i + + ; 

hflag = TRUE; 

/* set h flag */ 

) 

if ( (format [i] == '1') || (format [i] == 'L')) 

{ 

i + + ; 

If lag = TRUE; 

/* set 1 flag */ 

} 



switch (format [i] ) /* TYPE */ 

{ 

case ' d' : 
case ' D' : 
case ' i ' : 
case ' I ' : 
i + +; 

if ( If lag) 

temp_long = va_arg (arg_ptr, long) ; 

else 

temp_long = (long) va_arg (arg_ptr, int) 
ltoa (temp_long, buf, 10); 
strncat (obuf , buf, width); 
break; 

case ' u' : 
case 'U' : 
i + +; 
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if ( If lag) 

temp_long = va_arg (argjtr , long); 

else 

temp_long = (long) va_arg (arg_ptr , int); 
ltoa (temp_long, buf, 10); 
stmcatfobuf, buf, width); 
break; 



case 'X' : 

hex_upper = TRUE; 
case 'x' : 
i + + ; 

if (lflag) 

temp_long = va_arg (arg_ptr, long) ; 

else 

temp_long = 0x0000FFFFL& (long) va_arg (arg_ptr , int) 
1 toa ( temp_long, buf, 16); 
if (hex_upper) 

for (n = 0; buf [n] != NULL_CHAR ; n++) 

buf [n] = (char) toupper (buf [n] ) ; 
strncat (obuf , buf, width); 
break; 

case 'c' : 
case 'C' : 
i + + ; 

temp_int = va_arg (arg_pt r, int) ; 

temp_char = (char) (temp_int & OxOOFF) ; 

buf[0] = temp_char; 

buf [ 1 ] = NULL_CHAR ; 

strcat(obuf, buf ) ; 

break ; 



case 's': 
case ' S' : 
i + + ; 

temp_charptr = va_arg (arg_ptr , char *); 

strcat(obuf, temp_charptr) ; 

break; 



case ' f ' : 
case ' F' : 
i + + ; 

if (lflag) 

temp_fp = va_arg (arg_ptr , double); 

else 

temp_fp = (double) va_arg (arg_ptr, float); 
print_fp (obuf , temp_fp, precision, width); 
break; 

case 'p' : 
i+ + ; 

temp__ptr = (void far * ) va_arg (arg_ptr , void *); 

p r in t _p t r ( obuf , t emp_p t r , NEAR_PTR ) ; 

break; 



case ' P' : 
i + + ; 

temp_ptr = va_arg (arg_ptr , void far +); 
print_ptr (obuf , temp_ptr, FAR_PTR) ; 
break; 

default: /* not supported */ 

i++; 
break; 

} /* End of SWITCH */ 

break; /* End of CASE */ 

default : 

strncat (obuf , (format+i) , 1) ; 

i++ ; 

break; 

} /* End of SWITCH */ 

} /* End of WHILE */ 

/+ send to serial port */ 
put_string (obuf ) ; 

va_end (arg_ptr) ; 
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} /* End of dprintO */ 



/I********************************************************* 

* 

* pow ( ) 

* 

********************************************************* 

unsigned long intpower (unsigned int x, unsigned int y) 

( 

unsigned int i; 

unsigned long intp; 

P = 1; 

for (i = l; i <= y; i++) 

P *= x; 

return (p) ; 

} /* End of pow ( ) */ 

End of print.h, printc 
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rf.h, rf.c 

/********************************** 

* 

* RF.H 



* Defines for the RF unit interface routines. 

♦ 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* Revision History: 



* Date Who What 



* 30 Oct 1996 Jah Creation 

* 

******************★★***************★****★************★★*****★***********★★**/ 



#def ine 


RF_HPA 


7 


#def ine 


RF_LNA 


6 


#def ine 


RF_LHP_LHA 


3 


#def ine 


RF_L0P_L0A 


2 


#def ine 
#def ine 


RF_TX_RX 1 
RF _T_ R 


0 



ttifdef RF 






#def ine 


TO CON 


0xFF56 


#def ine 


TOCNT 


OxFFSO 


#def ine 


TOCMPA 


0xFF52 


#def ine 


TOCMPB 


0xFF54 


#def ine 


T1C0N 


0XFF5E 


#def ine 


T1CNT 


0xFF58 


#def ine 


T1CMPA 


OxFFSA 


#def ine 


T1CMPB 


OxFFSC 



static void 
static void 
static void 
static void 



rf_power{int mode); 
rf_set(int Ctrl, int mode); 
rf_timer(int delay); 
rf_txpower (int mode); 



#endif 



#ifndef RF 

extern void 
extern void 
extern void 
extern void 



rf_power(int mode); 
rf_set(int Ctrl, int mode); 
rf_timer(int delay); 
rf_txpower { int mode); 



#endif 



/****************************+*********************************+************** 

* 

* RF.C 

* 

* Interface routines for the RF unit. 

* 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM' software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Homing (Jah) 

* 

* Revision History: 

* Date Who What 



* 30 Oct 1996 Jah Creation 

♦ 

***************************★*+**★***+★*+★★★***★★****+++++*+*******+++*******/ 



#include "gen_defs.h" 

#define RF 

#include "rf.h" 

#undef RF 
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static int rf_pcb = 0; 



/******************++**+****************************************************** 

* 

* void rf_jpower { int mode) 

* 

* Used to turn on or off the power to the entire RF unit. 

* 

*********************+*+*********************************+***********++*****/ 

void rf_power {int mode) 

{ 

eps_set_power (RF, mode); 

} /* End of rf_power{) */ 



/********+**+*****+*****+**************************++*+*********************** 

* 

* void rf_set {int Ctrl, int mode) 

* 

* Allows individual bit control of the RF PCB controls. Any bit can be 

* toggled preserving other control bits. Note: the LNA logic is reversed. 

* 

a***************************************************************************/ 



void rf_set {int Ctrl, int mode) 

{ 

switch (ctrl) 

{ 

case RF_T_R: 
case RF_TX_RX: 
case RF_LOP_LOA: 
case RF_LHP_LHA: 
case RF_HPA: 

if (mode == ON) 

rf_pcb |= (1 << Ctrl); 

else 

rf_pcb &= ~(1 << Ctrl); 
pcb_write (RF, 0, rf_pcb) ; 
break; 

case RF_LNA: 

/* reversed logic for LNA control: this is because when the RF 
* unit goes on, you want an LNA on by default. 

*/ 

if (mode == OFF) 

rf_pcb |= (1 << Ctrl) ,- 

else 

rf_pcb &= ~{1 << Ctrl); 
pcb_write (RF, 0, rf_pcb) ; 
break; 

default : 
break ; 

} 

} /* End of rf_set() */ 



z***************************************************************************** 



* void rf_timer (int delay) 

* 

* Begins the RF transmitter timer using delay as a parameter (in seconds) . 

* Timers 0 and 1 are used in the cascade mode. Timer 0 is set to a maximum 

* count, internal clock, retrigger, using Compare A only. Timer 1 is set 

* to use an external clock (output of Timer 0) , in a one shot mode, using 

* the dual mode Compare A/Compare B. 

* 

*****************************************★★★**★*★**★***★*★*★***********★★**★/ 



void r f_timer { int delay) 

{ 

OUtpw (TOCNT, 0) ; 

OUtpw (T0CMPA, 0) ; /* 

OUtpw (TOCON, OxCOOl) ; /* 

OUtpw (T1CNT, 0) ; 

OUtpw (T1CMPA, 1) ; /* 

outpw (T1CMPB, delay * 28); 
OUtpw (T1CON, 0xC006) ; /* 



maximum count (65536) */ 

internal elk, retrigger, CMPA only */ 



smallest compare A */ 

/* -28 CMPB per second */ 
ext. elk, 1 shot, CMPA/CMPB dual mode 



*/ 
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} /* End of rf_timer() */ 



* void rf_txpower (int mode) 

* 

* Change power level of the transmitter by controlling the 2 -bit 

* attenuator. 



**************************************************************************** j 

void rf_txpower (int mode) 

{ 

rf_pcb ~= OxCF; /* mask off all power bits (set to 0) */ 

rf_pcb )= ((mode & 0x03) << 4); 
pcb_write (RF, 0, rf_pcb) ; 

} /* End of rf_txpower() */ 

End of rf.h, rf.c 
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scc.h, scc.c 



* SCC.H 

* 

* see 



Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

Revision History: 



* Date Who What 



* 17 July 1996 Jah Creation 

★ 

**********★★*************************************★★★★*******★*★*************/ 



typedef struct 

{ 

BYTE reg; 

BYTE data ; 

} scc_instr_struct / 



#define SCCA 0 

#def ine SCCB 1 



#def ine SCC_CHA_BUF_SIZE 516 

#def ine SCC_CHB_BUF SIZE 2048 



#def ine 


SCCA_CMD 


2 


/* 


Channel 


A 


Command 


*/ 


#def ine 


SCCA_DATA 


6 


/* 


Channe 1 


A 


Data */ 




#def ine 


SCCB_CMD 


0 


/* 


Channel 


B 


Command 


*/ 


#def ine 


SCCB_DATA 


4 


/* 


Channel 


B 


Data */ 





#ifdef SCC 



# de f i ne CHA_BUF_S I Z E S CC_CHA_BUF_S I ZE 

#def ine CHB_BUF SIZE SCC CHB BUF SIZE 



unsigned 


cnv_hex (char buf [) ) ; 


unsigned long 


int cnv_lhex ( char buf 1] ) ; 


char 


get_char (void) ; 


void 


get_string (char *string, int max) ; 


void 


put_string (char *string); 


void 


hex_ascii_dump (BYTE *ptr, int count); 


void 


scc_init (void) ; 


void 


scc_write_table (scc_instr_struct tablet] , 


BYTE 


serial_in(void) ; 


void 


serial_out (BYTE c) ; 


void 


scca_wreg (int reg, int value); 


void 


sccb_wreg (int reg, int value); 


void 


scc_hunt (void) ; 



int channel) ; 



#endif 



#ifndef SCC 



extern unsigned cnv_hex(char buf[]); 

extern unsigned long int cnv_lhex ( char buf[]); 



extern char 
extern void 
extern void 
extern void 
extern void 
extern void 
extern BYTE 
extern void 



get_char (void) ; 

get_st ring (char *string, int max); 
put_st ring (char *string) ; 
hex_ascii_dump (BYTE *ptr, int count); 
scc_init (void) ; 

scc_write_table (scc_instr_struct tabled , 
serial_in(void) ; 
serial out (BYTE c) ; 



int channel) 



extern void 
extern void 
extern void 



scca_wreg ( int reg, int value); 
sccb_wreg (int reg, int value); 
scc_hunt (void) ; 



extern BYTE cha_in_buf 0 [] ; 

extern BYTE cha_out_buf 0 [] ; 



208 



extern BYTE 
extern BYTE 
extern BYTE 
extern WORD 
extern WORD 
extern WORD 

#endif 

/******************* 



txa ; 
rx_eom; 
hunt ; 

a_txunder run_eom ; 
a_rxoverrun ,- 
a_brk_abort ; 



************************************************** 



* scc.c 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 

* Date Who What 



* 17 July 1996 Jah Creation 

****************************************************************************^ 



#include "gen_def s .h" 

# include "gen_apis.h" 

tinclude <stdio.h> 

#include <stdlib.h> 

#include <string.h> 



#def ine 

#include 

#undef 



SCC 

"see .h" 
SCC 



# include 
# include 
# include 



"dcs.h" 
"print .h" 
" terms .h" 



WORDjim = 0; 

WORD bl = 0; 

WORD b2 = 0; 

WORD b3 = 0; 

WORD b4 = 0; 

WORD a 1 = 0; 

WORDa2 = 0; 

WORD a 3 = 0; 

WORD a 4 = 0; 

scc_instr_struct scca_init U = 
{ 



{0x09, 


OxCO } , 


/* 


force hardware reset */ 


{0x04, 


0x20} , 


/* 


xl clock, SDLC mode, SYNC mode */ 


{0x01, 


0x00} , 


/* 


disable DMA and interrupts */ 


{ 0x02, 


0x00} , 


/* 


zero interrupt vectors */ 


{0x03, 


oxce } , 


/* 


Rx 8 bits, Rx CRC enabled */ 


{0x05, 


0x61} , 


/* 


Tx 8 bits, Tx CRC enabled */ 


{0x06, 


0x00} , 


/* 


SDLC address field */ 


{0x07, 


0x7E } , 


/* 


AUTO RTS, EOM, TX flag */ 


{0x09, 


0x22} , 


/* 


No vector and no INTACK */ 


{ OxOA, 


OxAO } , 


/* 


CRC preset=l, NRZI, Flag idle */ 


{ OxOB, 


0x09} , 


/* 


TxCK=TRxC, RxCK=RTxC */ 


{ OxOC, 


0x2E} , 


/* 


TCL 76,800 Hz */ 


{ OxOD, 


0x00} , 


/* 


TCH */ 


{ OxOE , 


0x02} , 


/* 


BRG=PCLK, DPPL=BRG */ 


{ OxOE , 


0x03} , 


/* 


Enable BRG, BRG=PCLK */ 


{0x03 , 


0xC9 } , 


/* 


Enable RX, CRC */ 


{0x05 , 


0x69} , 


/* 


Enable TX, CRC */ 


{ 0x00 , 


0x80} , 


/* 


Reset TxCRC */ 


{ OxOf , 


0x00} , 


/* 


clear all IE bits */ 


{ 0x00 , 


0x10} , 


/* 


reset ext/status */ 


{0x00 , 


0x10} , 


/* 


reset ext/status */ 


{0x01 , 


0x10} , 


/* 


int on all Rx or special * / 


{0x09 , 


0x2A} , 


/* 


enable interrupts}; */ 


{ OxFF, 


OxFF} 


/* 


End */ 



)> 



scc_instr_struct sccb_init[] = 



209 



0x04, 


0x44} , 


/* 


xl6 clock. 


1 stop, no parity */ 


0x03, 


oxco) , 


/* 


Rx 8 bits. 


Rx disabled */ 


0x05, 


0x60} , 


/* 


Tx 8 bits, 


DTR, RTS, Tx Off */ 


OxOB , 


0x56} , 


/* 


Tx & Rx=BRG, TRxC=BRG */ 


OxOC, 


0x16 } , 


/* 


TCL */ 




OxOD, 


0x00} , 


/* 


TCH */ 




OxOE , 


0x02} , 


/* 


*/ 




OxOE, 


0x03} , 


/* 


*/ 




0x03, 


OxCl} , 


/* 


Rx 8 bits, 


Rx enabled */ 


0x05, 


0x6A} , 


/* 


Tx 8 bits, 


Tx, RTS enabled */ 


OxFF , 


OxFF} 


/* 


End */ 





}; 



BYTE hunt = FALSE; 

WORD a_txunderrun_eom = 0 ; 

WORD a_rxover run = 0; 

WORD a_jbrk_abort = 0; 

BYTE cha_in_buf 0 [CHA_bUF_SIZE] ; 
BYTE cha_out_buf 0 [CHA_BUF_SIZE] ; 
BYTE txa = OFF; 

BYTE rx_eom = FALSE; 

BYTE chb 
BYTE Chb 
int 
int 
int 
int 



in_buf [ CHB_BUF_S I ZE ] ; 
_Out_buf [CHB_BUF_SIZE] ; 
chb_in_now = 0 ; 
chb_in_next = 0 ; 
chb_out_now = 0; 
chb_out_next = 0; 



/*****************************************************★********* 



************* 



* cnv_hex ( ) 

* 

♦***************************************************************************/ 

unsigned cnv_hex(char buf[]) 

( 

int i ; 

unsigned int val = 0; 



i = 0; 

while (buf[i] != '\0') 

{ 

val *= 16; 



/* 


* * 


ERROR ** w/ MSC6 . 0 compiler 


run-time 


lib*/ 


/* 


if 


(isdigit (buf [i] ) ) */ 






/* 


* * 


ERROR ** w/ MSC6 . 0 compiler 


run-time 


lib*/ 




if 


( (buf [i] >= *0') && (buf [i] 


<= ' 9 1 ) ) 








val += buf [i] - 'O'; 







else 

val += toupper (buf [i] ) - *A' + 0x0A; 

i + + ; 

) 

return (val) ; 

} /* End of cnv_hex() */ 



/****♦************************************************************************ 

* 

* cnv^lhex ( ) 

★ 

++**++******++*****#*******************************************+************y 

unsigned long int cnv_lhex (char buf[]) 

( 

int i; 

unsigned long int val = 0; 
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i = 0; 

while (bufti] != '\0') 

{ 

val * = 16; 

/* ** ERROR ** w/ MSC6 . 0 compiler run-time lib*/ 

/* if {isdigit (buf [i] ) ) */ 

/* ** ERROR * * w/ MSC6.0 compiler run-time lib*/ 

if ((buf[i) >= '0') && (buf [i] <= '9')) 
val += buf [i] - ' 0 ’ ; 



else 

val += toupper (buf [i] ) - 'A' + OxOA; 



} 



return (val) ; 

} /* End of cnv_lhex() */ 

/*•**”* * * 



get_char () 



char get_char (void) 

{ 

while ( ! is_serial_in () ) 



******* j 



return (serial_in () ) ; 

} /* End of get_char() */ 



get_string () 

Get a character string delimited by an ENTER and null- terminate 
it. Can only accept up to max characters. 

* ****************/ 



voidget_string (char ‘string, int max) 

{ 

register char c; 
register int i; 



i = 0; 

c = get_char ( ) , 
while (c ! - CR) 

{ 

if (c BACK SPACE) 

{ 

if U > C) 

{ 

\ 

srru . out ( l B YTE ) B ACK_S PACE ) ; 
layout { (BYTE) 1 '); 

out f (BYTE) BACK-SPACE) ; 

} 

} 

else if U • 

{ 

string [i**] - c, 
serial out (( BYTE ) c ) ; 

} 

c = get_char ( ) , 

} /* End of WHILE */ 

string [i] = NULL_CHAR ; /* Note: CR not saved - NULL instead */ 

} /* End of get_string() */ 
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/**** 



* hex_ascii_dump ( ) 

★ 

***************♦************************************************************/ 



void hex_ascii_dump (BYTE *ptr, int count) 

( 

WORD val ; 

int i, j; 



for (i = 0; i < count; i + = 16) 

{ 

for (j = 0; j < 16; j++) 

( 

val = ( (WORD) * (ptr+i+j) 6 l OxOOFF) ; 
if (val < 0x10) 
dprint ("0" ) ; 
dprint ("%X ”, val); 

) 

dprint ( " " ) ; 

for (j =0; j < 16; j+ + ) 

( 

val ® { (WORD) * (ptr + i+j) & OxOOFF) ; 
if ({val >= 32) &. 6 l (val <= 127)) 
dprint (" %c" , * (ptr+i+j ) ) ; 

else 

dprint (" .") ; 

} 

dprint ( "\n " ) ; 

} 



} /* End of hex_ascii_dump { ) */ 

/***************************************************************************** 



* put_string{) 

* 

* Send a null-terminated character string to the serial port. 

it 

******************* 4 ^*******************************************************/ 

voidput_string (char *string) 

{ 

register WORD state; 



while {* string ! - NULL_CHAR) 

( 

chb_out_buf [chb_out_next++] = *string++; 
if (chb_out_next > CHB_BUF_S I ZE - 1 ) 
chb_out_next = 0; 

) 



state = disable_ints ( ) ; 
if (inp(SCCB_CMD) &. 0x04) 

( 

outp (SCCB_DATA, chb_out_buf [chb_out_now+ + ] ) ; 

if { chb_ou t_now > CHB_BUF_S I ZE - 1 ) 
chb_out_now = 0 ; 

) 

if (state) 

enable_ints () ; 

} /* End of put_string() */ 

/♦a*************************************************************************** 



* scc_init{) 

it 

t***************************************************************************/ 



voidscc_init (void) 

( 

scc_write_table (scca^init # SCCA) ; 
scc_write_table (sccb__init, SCCB) ; 

} /* End of scc_init{) */ 
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/ 



* scc_wri testable 0 



«************++************+*+********+*+**********★************************/ 



void scc_wri testable (scc_instr_struct tablet], int channel) 

{ 

int x; 

int port ; 



port = (channel == SCC A) ? SCCA_CMD : SCCB_CMD; 

inp(port); /* read status */ 

for (x = 0; table [x] . reg != (BYTE) OxFF,- x++) 

{ 

outp {port , table [x] . reg) ; 
outp (port, table [x] .data) ; 

) 

} /* End of scc_wri testable {) */ 



/******************★★**********************★***************************★****** 

* 

* serial_in{) 

* 

* Serial input. Check to see if kbhit() was called to see if there 

* was a key pressed {and thus the key pressed has already been 

* retrieved and saved), if so return this. Otherwise, return 0. 

* 

****+++**+**++**+************+********+********+*********+***++*++***+++*+*+/ 

BYTE serial_in (void) 

( 

register BYTE key; 



if (chb_in_now == chb_in__next) 
key = 0; 



else 

{ 

key = chb_in_buf [chb_in_now++] ; 
if (chb_in_now > CHB_BUF_SIZE-1) 
chb_in_now = 0 ; 

) 

return (key ) ; 

} /* End of serial_in{) */ 



/*****************************************************************+*********** 



is_serial_in ( ) 



/ 



int is_serial in (void) 

{ “ . 

if (chb_in__now == chb_in_next) 
return (FALSE ) ; 



else 

return (TRUE) ; 

} /* End of is_serial_in {) */ 



/***************************************************************♦************* 

* 

* serial_out{) 

* 

* Serial output. Add the given character to the wrap-around output buffer. 

* No check is made to see if the buffer is full. 

* 



serial_out (BYTE c) 



void 
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{ 



register WORD 



state; 



chb_out_buf [chb_out_next++] = c; 
if (chb_out_next > CHB_BUF_SIZE-1) 
chb_out_next = 0; 

state = disable_ints () ; 
if ( (inp <SCCB_CMD) & 0x04)) 

( 

outp (SCCBJDATA, chb_out_buf [chb_out_now++] ) ; 

if <chb_out_now > CHB_BUF_SIZE-1) 
chb_out_now = 0; 

) 

if (state) 

enable_ints 0 ; 

} /* End of serial_out() */ 



/♦★a************************************************************************** 

* 

* scc_isr() 

* 

****************************★*****★********************************+********/ 
void interrupt far scc_isr( 

unsigned es, unsigned ds, unsigned di, unsigned si, 

unsigned bp, unsigned sp, unsigned bx, unsigned dx, 

unsigned cx, unsigned ax, unsigned ip, unsigned cs, 

unsigned flags) 



static 


WORD 


save_rr0b = 


static 


WORD 


save_rr0a = 


static 


WORD 


save_rrlb • 


static 


WORD 


rr2b, rr3a 


static 


WORD 


rrOb, rrlb 


static 


WORD 


rrOa, rrla 


jim++; 






do 







{ 

/* First, read the Interrupt Vector from Read Register 2. This is a 

* unique SCC register (i.e. it is not duplicate for both channels. 

* Furthermore, this register is accessed from channel B. 

V 

inp (SCCB_CMD) ; /* Reset pointer bits */ 

outp <SCCB_CMD, 2 ) ; 
rr2b = inp (SCCB_CMD) ; 
switch (rr2b) 

( 

case 0x00: /• Ch B Tx buffer empty */ 

bl ♦ • ; 

if (chb_out now != chb_out_next) 

{ 

outp (SCCB__DATA, chb_out_buf [chb_out_now+ + ] ) ; 
if (chb_out_now > CHB_BUF_SIZE-1) 

chb_out_now =0; /* time to wrap-around */ 

I 



else • no more to send out */ 

{ 

outp (SCCB_CMD, 0x20);/* WR0B = 0x20 */ 

} 



outp (SrCB_CMD, 0x30); /* reset highest IUS */ 

break , 



case 0x02 / * Ch B Ext/Status change */ 

b2 ♦ ♦ , 

outp (SCCB_CMD, 0) ; 
rrOb • inp(SCCB_CMD) ; 

if {(save_rr0b & 0x00) * (rrOb & 0x00)) 
/* change in break/abort status */ 
i np ( SCCB_DATA) ; 
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if (rrOb & 0x40) /* Tx underrun/EOM detected */ 

{ 

outp (SCCB_CMD, OxCO) ; 

} 

if (rrOb & 0x04) /* Tx buffer empty */ 

{ 

if (chb_out_now l= chb_out_next) 

{ 

outp (SCCB_DATA, chb_out_buf [chb_out_now++] ) 
if ( chb_out_now > CHB_BUF_SIZE-1) 

chb_out_now =0; /* time to wrap-around */ 

) 

else/* no more to send out */ 

{ 

outp (SCCB_CMD, 0x28);/* WR0B = 0x28 */ 

} 

} 

if (rrOb & 0x01) /* Rx data available */ 

{ 

chb_in_buf [chb_in_next++] = inp (SCCB_DATA) ; 
if (chb_in_next > CHB_BUF_SIZE-1 ) 

chb_in_next = 0; /* time to wrap-around */ 

) 

save_rr0b = rrOb; 

outp (SCCB_CMD, 0x10); /* reset ext/status interrupt */ 

outp (SCCB_CMD, 0x30); /* reset special Rx cond. status */ 

outp (SCCB_CMD, 0x38); /* reset highest IUS */ 

break; 



case 0x04: /* Ch B Rx data ready */ 

b3 + + ; 

chb_in_buf [chb_in_next++] = inp (SCCB_DATA) ; 
if (chb_in_next > CHB_BUF_SIZE- 1) 

chb_in_next = 0; /* time to wrap-around */ 

outp (SCCB_CMD, 0x30); /* reset special Rx cond. status */ 

outp (SCCB_CMD, 0x38); /* reset highest IUS */ 

break; 



case 0x06: /* Ch B Special Rx condition */ 

b4 + + ; 

outp (SCCB_CMD, 0x01); 
rrlb = inp (SCCB_CMD) ; 

if (rrlb & 0x20) 

( 

/* Rx overrun error */ 

) 

if (rrlb & 0x01) 

{ 

/* data has cleared the (SCC) transmitter */ 

} 

outp (SCCB_CMD / 0x30) ; /* reset special Rx cond. status */ 

outp (SCCB_CMD, 0x38) ; /* reset highest IUS */ 

break; 



case 0x08: /* Ch A Tx buffer empty */ 

al++ ; 
break; 



case 0x0A: /* Ch A Ext/Status change */ 

a 2 + + ; 

outp (SCCA_CMD, 0x00); 
rrOa = inp (SCCA_CMD) ; 

if ( (save_rr0a & 0x80) * (rrOa & 0x80)) 

/* change in break/abort status */ 

( 

a_brk_abort++ ; 

/* Force PA-100 into reacquire */ 

} 

if (rrOa & 0x4 0) /* Tx underrun/EOM */ 
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a_txunderrun_eom+ + ; 

/* outp (SCCA_CMD, OxCO) ; */ 

if (rrOa & 0x10) 

( 

hunt = TRUE; 

/* ignore break/abort */ 

/* setup DMA for frame receive */ 



{ 

hunt = FALSE ; 

/* allow break/abort */ 



if (rrOa & 0x04) /* Tx buffer empty */ 

al++; 

if (rrOa & 0x01) /* Rx character available */ 

a3++ ; 



save_rr0a = rrOa; 



outp (SCCA_CMD , 
outp (SCCA_CMD, 
OUtp (SCCA_CMD, 
break; 



0x10); /* 
0x30) ; /* 
0x38) ; /* 



reset ext/status interrupt */ 
reset special Rx cond. status 
reset highest IUS */ 



*/ 



case OxOC: /* Ch A Rx data ready */ 

a3++; 
break; 



case OxOE : /* Ch A Special Rx condition */ 

a4 + + ; 

outp (SCCA_CMD, 0x01); 
rrla = inp (SCCA_CMD) ; 

if (rrla & 0x20) /* Rx overrun error */ 

{ 

a_rxoverrun+ + ; 

} 

if ((rrla & OxCO) == 0x80) /♦ EOF with NO CRC error */ 

{ 

outpw(D0CON, 0xA3A4) ; /* STOP DMA 0 - no more Rx */ 
cha_in_buf0 [514 - inpw(DOTC) - 2] = NULL_CHAR; 

/* make it a char string */ 
rx_eom = TRUE; 

/* ignore break/abort */ 

) 

if ((rrla & OxCO) == OxCO) /* EOF with CRC error */ 

{ 

outpw (DOCON, 0xA3A4) ; / * STOP DMA 0 - no more Rx */ 

cha_in_buf 0 [0] = NULL_CHAR; /* make it a char string */ 
rx_eom = FALSE; 

/* ignore break/abort */ 

) 

outp (SCCA_CMD, 0x30); 
outp(SCCA_CMD, 0x38); 
break; 

default : 

/* Error */ 
break; 

} /* End of SWITCH (rr2b) */ 



/* Check for any pending ints, which will cause the entire SWITCH above 
* to reiterate. 

*/ 

inp (SCCA_CMD) ; 

OUtp (SCCA_CMD, 3); 
rr3a = inp (SCCA_CMD) ; 

} while (rr3a != 0) ; 



216 



/* Send non-specific EOI to Interrupt Controller */ 
outpw (0xFF22, 0x8000); 

} /* End of scc_isr() */ 



/ 



scca_wreg () 



*****************************************************★*********************/ 



void scca_wreg (int reg, int value) 

{ 

i f { debug ) 

dprint ( "SCCA WR: VX = %X", reg, value); 

outp (SCCA_CMD, reg); 
outp (SCCA_CMDf value); 

} /* End of scca_wreg() */ 



/ 



sccb_wreg () 



void sccb_wreg (int reg, int value) 

{ 

if (debug) 

dprint ("SCCB WR: %X = *X", reg, value); 

outp (SCCB_CMD, reg); 
outp (SCCB_CMD, value); 

} /* End of sccb_wreg() */ 



************** 



***** I 



/*************************************************♦*************************** 



* scc_hunt) 

★ 



void scc_hunt (void) 

( 

unsigned long inti; 



dprint ("Entering Hunt Mode"); 
outp (SCCA_CMD, 3); 

outp (SCCA_CMD, 0xD8) ; /* Disable receiver */ 

OUtp(SCCA_CMD, 3); 

outp (SCCA_CMD, 0xD9) ; /* Enable receiver & enter Hunt mode */ 

for (i = 0; i < OxOOOlFFFFL; i++) 

{ 

if ( (i*0x3FFFL) == 0) 
dprint (" . ") ; 

if ( ! (inp(SCCA_CMD) & 0x010)) 
break; 

} 

if (inp (SCCA_CMD) & 0x010) 

dprint ("Sync (Flag) not detected, still in Hunt Mode\n"); 

else 

dprint ("Sync (Flag) detected 1 \n" ) ; 

} /* End of scc_hunt() */ 

End of scc.h, scc.c 
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scenario.h, scenario. h 



* SCENARIO.H 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software . 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



************************************************** 



* * * * / 



/♦fr*************************************************************************** 

* 

* SCENARIO. C 



* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 



* Date Who What 



**************************************************************************** j 

# include " gen_de f s . h " 

#def ine SCENARIO 

# include "cmd.h" 

#undef SCENARIO 



End of scenario.h, scenario.c 
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spacket.h, spacket.c 

/*it*it*t******#*t**************t**t**»**t»tt****t**t*t****t*tt********ttt*tt* 

* 

* SPACKET . H 



Petite Amateur Navy Satellite {PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

Jim A. Horning {Jah) 

Revision History: 

Date Who What 



*****************************************************+*********************^ 



/ 



************************************************************************** 



SPACKET . C 



Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning (Jah) 

Revision History: 

Date Who What 



*********************************♦*****************************************/ 



# include "gen_def s .h" 

# define SPACKET 
#include "spacket.h" 
#undef SPACKET 



End of spacket.h, spacket.c 



startup. asm 



***************************************************************************** 

* 

* 80186 C Startup 

* 

* This is the beginning of ROM code for PANSAT. 



★ 

* 


Revision 


History 








* 


When 






Who 


What 


* 


28 March 


1996 


Jah 




Adopt for Pansat DCS 



FALSE equ 0 

TRUE equ 1 



***************************************************************************** 



;* MACRO: transmit 
. * 

.***************************************************************************** 

transmit MACRO 

LOCAL transmi t_wait 

mov bx, ax 

transmit_wait : 

in al , SCCB_CMD 

and al, 4 

jz transmi t_wa it 

mov ax , bx 

out SCCB_DATA, al 

ENDM 



***************************************************************************** 

/ * MACRO : DELAY 

. * 

/ 

. ***************************************************************************** 

delay MACRO delay_time 
LOCAL delay_loop 

mov cx, delay_time 

delay_loop : 

dec cx 

jnz delay_loop 



ENDM 



***************************************************************************** 

* 

* MACRO: DISPLAY 



♦♦♦♦A************************************************************************ 



display 


MACRO 


LOCAL 


displayl 


LOCAL 


display2 


shr 


ax, cl 


and 


al, OFh 


cmp 


al, 9 


jb 


displayl 


add 


al, 037h 


jmp 


display2 


displayl : 




add 


al , 'O' 



display2 : 

transmit 



/adjust A-F 



/adjust 0-9 
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ENDM 



Specify stack size. 

***************************************************************************** 



STACK_SIZE EQU 80 OH ; defined in WORDS (2 bytes) = 4k bytes 



***************************************************************************** 
Place EXTRN statements for interrupt handling routines outside 
Of all SEGMENT/ENDS pairs. 

***************************************************************************** 
For example, suppose you have an interrupt handling routine written in C 
with the function name int_hdlr{) . 

In order for you to reference the routine in this file, you should declare 
_int_hdlr as an external reference (note that the C compiler prefixes an 
underscore character to the function name) . The declaration should be 
placed outside of all SEGMENT/ENDS pairs as follows: 

EXTRN _int_hdl r : FAR 

Refer to the sample code below that initializes the interrupt vector table. 



***************************************************************************** 
The primary function of the start-up code is to set up the run-time 
environment before passing control to C function main() . 

The start-up code performs the following functions: 

1) Initialize hardware and check RAM. 

2) Copy initializers from ROM to RAM to setup initialized program variables 
to proper initial values. 

3) Zero all uninitialized program variables. 

4) Initialize interrupt vector table, if necessary. 

5) Setup data segment. 

6) Setup stack segment. 

7) Pass control to C function main() . 



PUBLIC acrtused 

acrtused EQU 1 



The symbol acrtused has to be in lower-case. Starting from version 4, 

when the Microsoft C optimizing compiler compiles a C file, it places an 
external reference to this symbol in the object file. The public definition 

of acrtused is contained in an object module called crtO. This module is 

placed in the Microsoft C run-time library file. This module contains the 
start-up code for the DOS environment. So when you link your C object files 
with the run-time library file, the linker will extract the start-up object 
module from the run-time library file to satisfy the external references. 

As a result, the start-up code for DOS environment will be included in the 
linker output. 

If you do not make use of any function supplied in the run-time library 
file, you do not link with the library file at all. Then you have to 

include a public definition of acrtused in this file to resolve all the 

external references in the C object files. 

Even though you are building an application for an embedded environment, 
sometimes you may want to link with the run-time library file. The reason 
is that the run-time library file contains both DOS-dependent functions, 
such as printfO, and DOS- independent functions, such as strcpyO. If you 
want to make use of certain DOS- independent functions that are contained in 
the run-time library file, you would link with the library file. If the 
link map shows that the linked module contains the crtO module, you know 
that you have linked in some DOS -dependent functions from the run-time 
library file. 

Make sure you specify this start-up file as the first object file 
in the linker command line, then the other object files and place the 
modified combined run-time library file as the last file. 

The following memory map shows a typical run-time environment of an embedded 
application developed using the Microsoft C optimizing compiler. 

It will help you understand the start-up code presented in this file. 

The naming convention of class names presented here conforms with the 
Microsoft C optimizing compiler, version 4 and up. The names enclosed in 
single quotes are class names of segments. 

High address 



| FFFF : 0 <- - Bootstrap code (JMP FAR PTR START__) 

I 

i 

| | [FAR_DATA] | A This area of ROM contains initializers that 
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O 2 



I are used by start-up routine to initialize 
| segments with these class names in RAM at 
| power-up. 

j {The INITDATA control causes the PROM86 
j utility to place initializers between address 
v labels _bdata and _edata and between _bfdata 
<-- and _ef data in this area of ROM) 

< This class contains only one segment of zero 

length. Initializers are located at _etext. 
<-- Text segments with class name CODE. 



< End of DGROUP (size of DGROUP <= 64 K bytes) 

<-- This class contains the stack. 



<-- This class contains uninitialized data. 



A These three classes of segments are to be 
| initialized with initializers in ROM 
j by start-up routine at power-up. 



v 

: Start of DGROUP 



<-- This class contains uninitialized data. 



<-- This class contains uninitialized data. 



This class contains initialized data. 



| <-- The interrupt vector table should be 

0:0 initialized by start-up routine at power-up. 

Low address 

NOTE: 

It is important to maintain the order of SEGMENTS/ENDS pairs as shown 
below. 

Text segments all have class name CODE. They contain program code 
which is machine instructions generated by the compiler. 

Data segments with class names DATA_BEG , DATA, CONST, BSS and STACK 
belong to a group named DGROUP. Since these segments belong to 
a group, it follows that the total memory space occupied by them 
cannot exceed 64K bytes. 

The object files may contain data segments with class names 
FAR_DATA, FAR_BSS and HUGE_BSS . 

These classes of segments are generated by the Microsoft C 
optimizing compiler to support 'far' and 'huge' data objects. 

Check your C manual for details. 

Data segments with class names FAR_BSS and HUGE_BSS contain 
'far' and ’huge' uninitialized data, respectively. These segments 
do not belong to any group. They should be located before 
the group DGROUP in the RAM space of your target system. The 
advantage of locating these segments before DGROUP is that you may 
use the memory space from the end of STACK segment to the end of 
RAM as heap to implement your own memory allocation scheme. 

For 'huge' data objects, multiple segments may be generated by the 
C compiler to hold a single data object that is greater than 64K 
bytes in size. These segments must be located together in proper 
order. 



_etext 

i 

| _start_ 
- START 



edata 



_bdata 

ehbss 



_bhbss 

efbss 



_bfbss 
ef data 



bfdata 



[CONST] 
[DATA] 
[DATA BEG] 



' C0DE_END ' 
' CODE ' 



'STACK* 



'BSS_END* 

'BSS' 



' DATA_END ' 
' CONST ' 



'DATA' 
'DATA BEG* 



' HUGE_BSS_END ' 
•HUGE BSS' 



1 HUGE_BSS_BEG ' 
'FAR BSS END' 



' FAR_BSS * 

'FAR BSS BEG' 



' FAR_DATA_END ' 
' FAR_DATA ' 
'FAR DATA BEG' 
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Data segments with class name FAR_DATA contain 'far' and 'huge' 
initialized data. They should also be located before the group 
DGROUP in the RAM space of your target system. 

When you prepare data file for programming eprom, the initializers 
for segments with class names DATA_BEG, DATA, CONST and FAR_DATA 
have to be placed in ROM addresses behind the CODE_END class. 

The INITDATA control of PROM86, version 5.2 and up, performs this 
operation for you. At power-up, the start-up routine will copy these 
initializers from ROM to initialize the appropriate variables in RAM. 

In order to make use of the INITDATA control in PROM86, you 

must preserve the following public labels in this start-up file: 

_bfdata - beginning of initializers in FAR_DATA class 

_efdata - end of initializers in FAR_DATA class 

_bdata - beginning of initializers in DGROUP group 

_edata - end of initializers in DGROUP group 

_etext - end of code 

If you want PROM86 to determine the extraction address range, 
i.e. the ADDRESSES option is not specified in PROM86 v6.0, you must 
preserve the public label _start_ in this start-up file. 

In addition to the above labels, the routine in this start-up file 
uses the following public labels: 

_end - end of uninitialized data in BSS class 
_bfbss - beginning of uninitialized data in FAR_BSS class 
_efbss - end of uninitialized data in FAR_BSS class 
_bhbss - beginning of uninitialized data in HUGE_BSS class 
ehbss - end of uninitialized data in HUGE BSS class 



***************************************************************************** 

***************************************************************************** 



• Segment declarations 



- ***************************************************************************** 



BEGFDATA 



************** 



BEGFDATA SEGMENT PARA PUBLIC ' FAR_DATA_BEG ' 

PUBLIC _bf data 

_bfdata LABEL BYTE ; This label marks the beginning of initialized data 

; in FAR_DATA class . 

BEGFDATA ENDS 



FAR DATA START 



FAR_DATA_START SEGMENT PARA PUBLIC 1 FAR_DAT A ’ 

FAR_DATA_START ENDS 

; By default, the locator places segments with the 
; same class name toother 

,• The purpose of th* f A* LATA START segment is to cause the locator 
; to locate all segment* with class name FAR_DATA that contain 
,- initialized variatles between the BEGFDATA and ENDFDATA segments. 

EMULATOR_DATA s egme n t pa r a pub lie ' FAR_DATA ' 

; Segment contains data for the floating point emulator. 

EMULATOR DATA ends 



ENDFDATA 



******** 



ENDFDATA SEGMENT PARA PUBLIC ' FAR_DATA_END ' 

PUBLIC _ef data 

_efdata LABEL BYTE ,- This label marks the end of initialized data 
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; in FAR_DATA class. 

END FD AT A ENDS 



.**************************************************»********< r***************** 
l 

. * 

t 

; * BEGFBSS 

. * 

.*************************************************************♦*************** 
BEGFBSS SEGMENT PARA PUBLIC 1 FAR_BSS_BEG* 

PUBLIC __bfbss 

_bfbss LABEL BYTE ; This label marks the beginning of uninitialized 

; data in FAR_BSS class. 

BEGFBSS ENDS 

.*****************************************************************♦*********** 
. * 

; * FAR_BSS_START 
. * 

.***************♦************************************************************* 



F AR_B S S_S TART SEGMENT PARA PUBLIC ' FAR_BSS ' 
FAR BSS START ENDS 



By default, the locator places segments with the same class name 
together . 

The purpose of the F AR_B S S_START segment is to cause the locator to locate 
all segments with class name FAR_BSS between the BEGFBSS and ENDFBSS 
segments . 

Segments with class name FAR_BSS contain uninitialized variables. 



.**************************************************************************♦** 

> 

• * 
i 

; * ENDFBSS 

. * 

.***************************************************«************************* 
ENDFBSS SEGMENT PARA PUBLIC ' FAR_B SS_END ' 

PUBLIC _ef bss 

_efbss LABEL BYTE ; This label marks the end of uninitialized data 

; in FAR_BSS class. 

ENDFBSS ENDS 



;******************♦***********************************♦********************** 
■ * 

; * BEGHBSS 
■ * 

.**+++**+********************************************************************* 

BEGHBSS SEGMENT PARA PUBLIC ’ HUGE_BSS_BEG • 

PUBLIC _bhbss 

_bhbss LABEL BYTE ; This label marks the beginning of uninitialized 

; data in HUGE_BSS class. 

BEGHBSS ENDS 



.*****************************************************************+*********** 
. * 

; * HUG E_B S S_START 
. * 

. ***************************************************************************** 

HUGE_BSS_START SEGMENT PARA PUBLIC ' HUGE_BSS 1 
HUG E_BS S_START ENDS 



; By default, the locator places segments with the same class name 
; together. 

; The purpose of the HUGE_BSS_START segment is to cause the locator to locate 
; all segments with class name HUGE_BSS between the BEGHBSS and ENDHBSS 
; segments. 

; Segments with class name HUGE_BSS contain uninitialized variables. 



. ***************************************************************************** 
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* ENDHBSS 



ENDHBSS SEGMENT PARA PUBLIC ' HUGE_BSS_END ' 

PUBLIC _ehbss 

_ehbss LABEL BYTE ; This label marks the end of uninitialized data 

; in HUGE_BSS class. 

ENDHBSS ENDS 



DGROUP segments 



; DGROUP GROUP NULL, _DATA, CONST, ENDDATA, _BSS, ENDBSS , STACK 

DGROUP GROUP NULL, _DATA, PSP, CDATA, CONST, HDR, MSG, PAD, E PAD, ENDDATA, _BSS , ENDBSS, STACK 



NULL 

This segment contains 8 bytes of zeros. If a (DS:0) null pointer assignment 
occurs, these byte locations will be overwritten. You may implement your 
own routine to check for null pointer assignment. 



NULL SEGMENT PARA PUBLIC ' DATA_BEG 1 

PUBLIC _bdata ; This label marks the beginning of initialized data. 

_bdata LABEL BYTE 
DB 8 DUP (0) 

NULL ENDS 



***************************************************************************** 

* 

* __DATA 

* 

* Segment with class name DATA contains initialized variables. 



***************************************************************************** 



_DATA SEGMENT WORD PUBLIC 'DATA' 

; segment contains initialized variables 
PUBLIC fac 

fac DQ 0 ; FP Accumulator 

PUBLIC _errno 

_errno DW o /Initial Error Code 

DATA ENDS 



PSP SEGMENT PARA PUBLIC 'DATA 1 ; MUST BE PARAGRAPH ALIGNED 
; Segment contains data for initializing floating point emulator. 
PSP ENDS 

CDATA SEGMENT WORD COMMON 'DATA' 

DW 0 ; DO NOT DEFINE ANY VARIABLE IN THIS SEGMENT 

f pin it LABEL DWORD 

PUBLIC fpinit 

CDATA ENDS 



;***************************************************************************** 

. * 

; * CONST 

. * 

;* Segment with class name CONST contains constants. 

. * 

;♦**************************************************************************** 

CONST SEGMENT WORD PUBLIC 'CONST* 

CONST ENDS 

HDR SEGMENT BYTE PUBLIC 'MSG' ; HEADER SEGMENT OF ERROR MESSAGE STRINGS 
DB * <<NMSG>> 1 
HDR ENDS 
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MSG SEGMENT BYTE PUBLIC 'MSG' ; ERROR MESSAGE STRINGS 
MSG ENDS 

PAD SEGMENT BYTE COMMON 'MSG' ; ERROR MESSAGE PADDING MARKER 
DW -1 
PAD ENDS 

EPAD SEGMENT BYTE COMMON ‘MSG’ ; END OF PADDING MARKER 
DB -1 
EPAD ENDS 



.********************************************♦************************** 

. * 

; * ENDDATA 

• ★ 
t 

.****************************★*****************★***************★*******★ 
ENDDATA SEGMENT PARA PUBLIC 1 DATA_END 1 
PUBLIC _edata 

_edata LABEL BYTE ; This label marks the end of initialized data. 

ENDDATA ENDS 



*********************************************************************** 

* 

* _BSS 

* 

* Segment with class name BSS contains uninitialized variables. 

* 

*********************************************************************** 

BSS SEGMENT WORD PUBLIC 'BSS' 

BSS ENDS 



.*********************************************************************** 

. * 

/ 

; * ENDBSS 

. * 

/ 

.*********************************************************************** 

/ 

ENDBSS SEGMENT WORD PUBLIC ' BSS_END ' 

PUBLIC _end 

_end LABEL BYTE ; This label marks the end of uninitialized data 

ENDBSS ENDS 



. *********************************************************************** 

. * 

; * STACK 

. * 

# 

^ *************••*•*••••••#••# ******************************************* 

STACK SEGMENT PARA STACK 'STACK' 

DW STACK_SIZE DUP (?) 

Stack_top LABEL WORD 
STACK ENDS 



♦♦♦♦♦♦♦♦•♦♦♦♦••••••••••••••••••••************************************** 

* 

* JTEXT 

* 

♦♦♦♦♦♦♦♦♦♦♦•♦•••••••••••••••••••*************************************** 



_TEXT SEGMENT PARA PUBLIC ‘CODE* 
EXTRN _main:NEAR ; C main!) 

ASSUME CS :_TEXT 

ASSUME DS : DGROUP, SSrDGROUP 



80186 Initialization 

UMCS equ OFFAOh /upper memory chip select 

UMCS_DATA equ 0F038h /start of EPROM F000:0, 64K 
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external Ready ignored, 0 wait states 



Lower Memory Chip Selects are NOT used 



PACS 


equ 




0FFA4 h 




PACS_ 


DATA 


equ 


OOOOh 


PCSO (base) = 0, bus ready must be active 










to complete a bus cycle, no wait states 
inserted in bus cycle 


MMCS 


equ 




0FFA6h 




MMCS_ 


DATA 


equ 


OOOOOh ; 


;Start = 0:0, 512K in size 


MPCS 


equ 




0FFA8h 




MPCS_ 


_DATA 


equ 


04 0 8 7h 


512K block, + PCS 5/ 6 










PCSx go active for i/o bus cycles, 
requires bus ready be active to complete 
bus cycle (applies to PCS4-PCS6), 

0 wait states inserted for PCS4-PCS6 



PUBLIC START_ 

START_ : 

PUBLIC _start_ ;Must be paragraph aligned (i.e. offset is 0) 

_start_: ; and the address where program code starts . 

;* 80186 Initialization 

mov dx, MMCS 

mov ax, MMCS_DATA 

out dx, ax 

mov dx , MPCS 

mov ax, MPCS_DATA 

out dx, ax 

mov dx , PACS 

mov ax, PACS_DATA 

out dx, ax 

; * For the test board w/ separate 1 . 8MHz SCC clock 



mov 


dx. 


0FFA2h 


mov 


ax, 


03FF8h 


out 


dx. 


ax 


mov 


dx, 


0FFA4h 


mov 


ax, 


0037h 


out 


dx. 


ax 


mov 


dx. 


0FFA6h 


mov 


ax. 


04 lF8h 


out 


dx. 


ax 


mov 


dx. 


0FFA8h 


mov 


ax. 


0A038h 


out 


dx. 


ax 



******** 



Init Peripheral Control Bus 

82SS (PPI) at OxCO , 0xC2, 0xC4 , 0xC6 

Mode 2: Port A = bidirectional using Port C as handshaking 

Port B = Address selections and Read & Write strobes 
Port C = Handshaking lines 



* After PPI init, Port B is set to OxCO which sets the Read and Write 

* lines high, which clears them since they are active low signals. 

***************************************************************************** 



PCB_PPI_BASE equ 
PCB_PPI_PortA equ 
PCB_PPI_PortB equ 
PCB_PPI_PortC equ 
PCB_PPI~Ctrl equ 



OlOOh 

PCB_PPI_BASE + 0 
PCB_PPI_BASE + 2 
PCB_PPI_BASE + 4 
PCB PPI BASE + 6 



; Port C single bit set/reset 



PCB_ 


PortC_ 


SetO 


equ 


Olh 


; Sets 


Port 


C, 


bit 


0 


to 


1 


PCB_ 


PortC_ 


ResetO 


equ 


OOh 


;Sets 


Port 


c. 


bit 


0 


to 


0 


PCB_ 


PortC_ 


Setl 


equ 


03h 


;Sets 


Port 


c, 


bit 


1 


to 


1 


PCB_ 


PortC_Resetl 


equ 


02h 


;Se ts 


Port 


c, 


bit 


1 


to 


0 


PCB_ 


T3 

o 

n 

n 


_Set2 


equ 


05h 


;Sets 


Port 


c. 


bit 


2 


to 


1 


PCB_ 


0 

M 

n 

n 


_Reset2 


equ 


04h 


;Se ts 


Port 


c. 


bit 


2 


to 


0 



mov 


dx. 


PCB_PPI_Ctrl 




mov 


al. 


OCOh 




out 


dx. 


al 


; Setup via the Control port 



227 



mov 


dx. 


PCB_ 


PPI_PortB 










out 


dx, 


al 




; Output 


to 


port b (Read & 


Write HIGH) 


mov 


dx, 


PCB_ 


PPI_PortA 










sub 


al, 


al 












out 


dx. 


al 




,-Output 


to 


port a (Data = 


all zeros) 


mov 


dx. 


PCB_ 


PPI_Ctrl 










mov 


al, 


PCB_ 


PortC_Setl 


; PCI = 


PPI 


Input Strobe 




out 


dx, 


al 












mov 


al, 


PCB_ 


PortC_SetO 


; Modem 


Power (Active LOW 


-> keep it OFF) 


out 


dx, 


al 













; Clear power settings on EPS {Ports 0 and 2) 



mov 


dx, 


PCB_PPI 


_PortA 








mov 


al, 


0 










out 


dx, 


al 










mov 


dx. 


PCB_PPI_PortB 








mov 


al. 


0E8h 




; 11 


10 


1000 


out 


dx, 


al 










mov 


al. 


0A8h 




; 10 


10 


1000 


out 


dx, 


al 










mov 


al, 


0E8h 




,*ll 


10 


1000 


out 


dx, 


al 










mov 


dx, 


PCB_PPI 


_PortB 








mov 


al, 


0C8h 




/li 


00 


1000 


out 


dx, 


al 










mov 


al , 


0 8 8h 




; 10 


00 


1000 


out 


dx, 


al 










mov 


al. 


0C8h 




;11 


00 


1000 


out 


dx, 


al 











***************************************************************************** 



* Init 85C30 (Channel B) for: 

* asynchronous, 9600 bps, no parity, 1 stop bit, 8 bits/char 

* 

***************************************************************************** 



SCCB_CMD 


equ 


0 






SCCB_DATA 


equ 


4 






SCCA_CMD 


equ 


2 






SCCA_DATA 


equ 


6 






BTABLE_LEN 


equ 


(OFFSET SCCb_ 


table_ 


end) 


ATABLE_LEN 


equ 


(OFFSET scca_ 


table_ 


end) 


10 CON 


equ 


0FF38h 






I0CON_INIT 


equ 


OOCh 






INT0_ISR 


equ 


12 







; Channel B Command 
; Channel B Data 
; Channel A Command 
,-Channel A Data 

- (OFFSET sccb_table) 

- (OFFSET scca_table) 



; Edge-triggered, turned OFF, priority 4 



; public init_scca 
; init_scca : 



in 


al, 


SCCA_CMD 


/read status 


mov 


bx, 


AT AB LE_LEN 





mov bp, OFFSET scca__table 

public table_loada 
table_loada : 
mov 
out 
inc 
dec 
jnz 

init sccb: 



in 


al, 


SCCB_CMD 


/ read 


mov 


bx, 


BTABLE LEN 




mov 


bp. 


OFFSET sccb__table 



public table_loadb 
table loadb: 



al, cs : [bp] 
SCCA_CMD, al 
bp 
bx 

table loada 
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mov 


al, cs : [bp] 




out 


SCCB_CMD, al 




inc 


bp 




dec 


bx 




jnz 


table_loadb 




public table_loadb_done 




t ab 1 e_l oa db_don e 






mov al , 


» i 1 




transmit 


jmp 


edac_done 




jrop 


init_edac 




scca_table : 


db 


009h 


; point to WR9 


db 


OCOh 


/force hardware reset 


db 


0T)4h 


/point to WR4 


db 


020h 


; xl clock, SDLC mode, SYNC mode 


db 


OOlh 


/point to WRl 


db 


OOOh 


/disable DMA and interrupts 


db 


002h 


/point to WR2 


db 


OOOh 


; zero interrupt vectors 


db 


003h 


,-point to WR3 


db 


0C8h 


; Rx 8 bits, Rx CRC enabled 


db 


005h 


/point to WR5 


db 


061h 


; Tx 8 bits, Tx CRC enabled 


db 


006h 


/point to WR6 


db 


OOOh 


/SDLC address field 


db 


007h 




db 


07Eh 




db 


OOFh 


/point to WRl 5 


db 


091h 


/Enable Int : Break/Abort, Sync/Hunt 


db 


007h 


/point to WR7 


db 


063h 


/Extended Read, get CRC bits, AUTO RTS, EOM, TX 


db 


009h 


/point to WR9 


db 


022h 


/No vector and no INTACK 


db 


00 Ah 


/point to WR10 


db 


OAOh 


/CRC preset=l, NRZI, Flag idle 


db 


OOBh 


/point to WRl l 


db 


009h 


/ TxCK=TRxC , RxCK-RTxC 


; ; db 


056h 


/TxCLK=BRG, RxCLK=BRG, TRxC=output using BRG 


; db 


OOCh 


/point to WRl 2 


; db 


45 


,-TCL: to give 78.125 KHz clock 


; db 


0 ODh 


/point to WRl 3 


; db 


OOOh 


/TCH 


db 


OOEh 


/point to WR14 


db 


OOOh 


,-BRG=RTxC pin 


/ db 


002h 


/BRG=PCLK 


db 


OOEh 


/point to WRl 4 


db 


005h 


/Enable BRG, BRG=RTxC pin, DTR/Request Function 


; db 


007h 


/Enable BRG, BRG=PCLK, DTR/Request function 


db 


003h 


/point to WR3 


db 


0D9h 


/Enable RX, CRC, enter hunt 


db 


005h 


/point to WR5 


db 


06 9h 


/Enable TX, CRC 


db 


OOOh 


/point to WRO 


db 


08 Oh 


/Reset TxCRC 


db 


OOOh 


/point to WRO 


db 


OlOh 


/reset ext/status 


db 


OOOh 


/point to WRO 


db 


OlOh 


/reset ext/status 
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db OOlh 
db 0P9h 
db 0F8h 

db 009h 
db 02 Ah 



scca table end: 



; point to WR1 

; DMA Request Mode, Int on Special Rx, EXT INT enable 
; DMA Request Mode, Int on Special Rx 

; point to WR9 
/enable interrupts 



sccb_table : 

; based on SCCB using PCLK 



at 7.3728 MHz, x!6 clock mode, at 38400 b/s 



db 


04h, 


044h 


/ WR4 , 


xl6 clock, 8 bit sync, 1 stop 


bit, no pari' 


db 


Olh, 


012h 


; WR1 , 


INT on all Rx or special, Int 


on Tx empty 


db 


03h, 


OCOh 


/ WR3 , 


Rx: 8 bits/char, Rx disable 




db 


05h, 


06 Oh 


; WR5 , 


Tx: 8 bits/char, Tx disable 




db 


OBh, 


056h 


/ WR1 1 , 


Rx: BRG, Tx : BRG, TRxC: BRG 




db 


OCh, 


016h 


/ WR12 , 


lower TC ; this is for 


9600 b/s 


db 


OCh, 


OAh 


; WR12 , lower TC ; this is for 19.2 


kb/s 


db 


OCh, 


04h 


; WR12 , lower TC ; this is for 38.4 


kb/s 


db 


ODh, 


0 OOh 


/ WR13 , 


upper TC 




db 


OEh, 


003h 


; WR14 , BRG 


use PCLK, set DTR, enable BRG 


db 


03h, 


OClh 


/ WR3 : 


... + Rx enable 




db 


OBh, 


0 6 Ah 


/ WR5 : 


... + Tx enable, /RTS 




db 


00h, 


OlOh 


/WR0 : 


Reset EXT/Status Interrupts 


* 


db 


00h, 


028h 


/WR0: 


Reset TxINT Pending 




db 


0 9h, 


02 Ah 


/ WR9 : 


Enable Interrupts 





; based on SCCB using BRG, with 1.8432 MHz clock, with xl6 clock mode, @ 9600 bps 



db 


04h, 


044h 


; WR4 , 


xl6 clock, 8 bit sync, 1 stop bit, no parity 


db 


Olh, 


12h 


/ WR1 , INT 


on all 


Rx or special , Int on Tx empty 


db 


03h, 


OCOh 


; WR3 , 


Rx: 8 


bits/char, Rx disable 


db 


OBh, 


060h 


; WR5 , 


Tx: 8 


bits/char, Tx disable 


db 


OBh, 


056h 


; WR11 , 


Rx: BRG, Tx: BRG, TRxC: BRG 


db 


OCh, 


004h 


; WR12 , 


lower TC 


db 


ODh, OOOh 


; WR13 , 


upper TC 


db 


OEh, 


OOlh 


; WR14 , 


set DTR and enable baud gen 


db 


03h, 


OClh 


; WR3 : 


... + 


Rx enable 


db 


OBh, 


068h 


/ WRS : 


... + 


Tx enable 


db 


OOh, OlOh 


/WR0: 


Reset 


EXT/Status Interrupts 


db 


OOh, 028h 


,-WRO: 


Reset 


TxINT Pending 


db 


09h, 


02 Ah 


/ WR9 : 


Enable Interrupts 



sccb table end: 



**************************************************************************** 



Init EDAC 

INT2 = Hard Error 
INT3 = Soft Error 



•••♦♦*********************************************************************** 



EXTRN _edac_soft_isr :NEAR ;C routine 

EXTRN _edac_hard_isr : NEAR ;C routine 



1 2 CON 


equ 


0FF3Ch 










I2CON_INIT 


equ 


OlEh 


/Level- triggered, 


turned 


OFF, 


priority 6 


1 3 CON 


equ 


0FF3Eh 










I3CON_INIT 


equ 


OlFh 


,-Level-triggered, 


turned 


OFF, 


priority 7 


IMASK 


equ 


0FF28h 










INT2_ISR 


equ 


14 










INT3_ISR 


equ 


IB 











public init_edac 
init_edac : 

/EXTRN _ad_isr : NEAR ;C ad_isr() 



mov 



dx, I 3 CON 
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mov ax, I3C0N_INIT 

out dx, ax 

mov dx, 1 2 CON 

mov ax, I2C0N_INIT 

out dx, ax 

mov al, ' E' 

transmit 



; Perform the Write/Read Test of OxSSAA 
; WRITE 



sub 


bx. 


bx 


testl_loopa : 






mov 


es. 


bx 


sub 


di , 


di 


mov 


cx. 


0 8 0 OOh 


mov 


Ax, 


055AAh 


cld 






rep 


stosw 


mov 


bx, 


es 


add 


bx, 


OlOOOh 


cmp 


bx, 


08 00 Oh 


jb 


edac_testl_loopa 



; READ -BACK 

sub bx, bx 

edac_testl_loopb: 

mov es, bx 

sub di, di 

mov cx, 08000h 

edac_test_loopbl : 

cmp ax, WORD PTR es: [di] 

jnz edac_testl_error 

loop edac_test_loopbl 

mov bx, es 

add bx, OlOOOh 

cmp bx, 08 00 Oh 

jb edac_testl_loopb 



/Passed the Write/Read of OxSSAA 



/Now perform the 


Write/Read Test of 


Mod-257 


/WRITE 










sub 


bx. 


bx 




edac_ 


test2_loopa: 










mov 


es. 


bx 






sub 


di , 


di 






sub 


ax, 


ax 


,-start w/ 0, count to 257, 




cld 








edac_ 


test2_loopal : 








mov 


BYTE PTR es: [di] , 


al / move just a byte 




inc 


ax 




; inc the whole word 




cmp 


ax, 


258 






jb 


edac_test2_skipl 






sub 


ax. 


ax 


; start over the count 


edac_ 


test2_skipl : 










inc 


di 




,-next location to fill 




jnz 


edac_test2_loopal ; 


not finished w/ 64k block 




mov 


bx, 


es 






add 


bx. 


OlOOOh 






cmp 


.bx, 


08 00 Oh 






jb 


edac_test2_loopa ; 


;keep with same count in AX 


/READ -BACK 










sub 


bx. 


bx 




edac_ 


_test2_loopb: 










mov 


es , 


bx 






sub 


di , 


di 






sub 


ax, 


ax 


/start w/ 0, count to 257 




cld 








edac_ 


_test2_loopbl : 








cmp 


BYTE PTR es: [di] , 


al /compare just a byte 




jnz 


edac_test2_error 






inc 


ax 




,-inc the whole word 




cmp 


ax. 


258 






jb 


edac_test2_skip2 






sub 


ax. 


ax 


/start over the count 


edac 


_test2_skip2 










inc 


di 




/next location to fill 



jnz edac_test2_loopbl ;not finished w/ 64k block 
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start over w/ 0 



start over w/ 0 



mov bx, es 

add bx, OlOOOh 

cmp bx, 08000h 

jb edac_test2_loopb /keep with same count in AX 

jmp edac_vectors 

,-Passed Write/Read Test of Mod-257 



edac_testl_error : 

mov al , ’ 1 ' 

jmp startup_error 

edac_test2_error : 

mov al, *2' 

jmp startup_error 



edac_vectors : 

/Setup Interrupt Vectors for EDAC 
sub ax, ax 

mov es , ax 

mov ax, OFFSET _edac_hard_isr 

mov es : WORD PTR INT2_ISR*4, ax 

mov ax, SEG _edac_hard_isr 

mov es : WORD PTR INT2_ISR*4+2 , ax 

sub ax, ax 

mov es, ax 

mov ax, OFFSET _edac_sof t_isr 

mov es : WORD PTR INT3_ISR*4, ax 

mov ax, SEG _edac_sof t_isr 

mov es:WORD PTR INT3__ISR*4+2 , ax 



/Segment of INT2 vector 
/Base of INT2 vector 



/Segment of INT3 vector 
/Base of INT3 vector 



/Allow the interrupts to occur {to the Interrupt Controller) 

/Note: Interrupts are still off to the microprocessor 
mov dx, IMASK 

/ mov ax, 03 Fh /Allow INT2 and INT3 interrupts 

; CPU ’ cli' is still imposed! 
mov ax, OFFh /Mask OFF all interrupts 

out dx, ax 

/Reset any EDAC errors 

mov dx, PCB_PPI_Ctrl 

mov ax, PCB_PortC_Reset2 /EDAC Error Acknowledge (Active LOW) 

out dx, ax 

mov ax, PCB_PortC_Set2 

out dx, ax 

mov a 1 , ' e ' 

transmit 

edac_done : 

/Setup SCC INTO Interrupt Vector and Configure Controller 

/*** DO NOT DO THIS BEFORE THE EDAC TEST OCCURS SINCE THE INTERRUPT VECTORS ARE TRASHED 

EXTRN _scc_isr : NEAR /C scc_isr() 

sub ax, ax 

mov es, ax 

mov ax, OFFSET _scc_isr 

mov es : WORD PTR INT0_ISR*4 , ax 

mov ax, SEG __scc_isr 

mov es;WORD PTR INT0_ISR*4+2 , ax 

mov dx, IOCON 

mov ax, IOCON_INIT 

out dx, ax 



/Segment of INTO vector 
,-Base of INTO vector 



***************************************************************************** 



* Init Timer for Clock 

* 

* Timer 2 Interrupt used, 

* 

************************************** 



T2CON 


egu 


0FF66h 


T2CNT 


equ 


0FF60h 


T2CMP 


egu 


0FF62h 


T2_ISR 


egu 


013h 


EXTRN 


_clock_isr :NEAR 




public 


set_timer 





INT 13h (19) 

*****★*+***★********++***************** 



/C clock_isr() 
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sec timer: 



mov 


ax, 


0 




mov 


es. 


ax 




mov 


ax. 


OFFSET _clock_isr 




mov 


es : 


WORD PTR 013h*4 , ax 




mov 


ax, 


SEG _clock_isr 




mov 


es : 


WORD PTR 013h*4+2 , ax 


;Base of TMR2 vector 


mov 


dx, 


T2CNT 




sub 


ax. 


ax 




out 


dx, 


ax 


; Counter Register 


mov 


dx. 


T2CMP 




mov 


ax. 


30720 


;Max Count 


out 


dx. 


ax 




mov 


dx. 


T2CON 




mov 


ax, 


06001h 


;no inhibit, INT, Continuous 


out 


dx. 


ax 




mov 


ax, 


OEOOlh 


; same as above, but Enable as 


out 


dx, 


ax 




********* 


********** 


**************************** 


*************************** 



;* Init A/D Interrupt Service 

. * 
f 

; * INTI = A/D Interrupt 

♦ * 

# 

.***************************************************************************** 

I ICON equ 0FF3Ah 

I1C0N_INIT equ OIDh /Level-triggered, turned OFF, priority 5 

INT1_ISR equ 13 

EXTRN _ad_isr : NEAR 

public set_ad 
set_ad: 

mov ax, 0 

mov es, ax 

mov ax, OFFSET _ad_isr 

mov esiWORD PTR INT1_ISR*4, ax 

mov ax, SEG _ad_isr 

mov esiWORD PTR INTl_ISR*4+2 , ax ;Base of AD ISR vector 



****************************************************************************** 

* 

* Perform variable initialization. 

* Initializers are copied from ROM to RAM. 



****************************************************************************** 



PUBLIC _init_begin 
_init_begin: 

cld 



; Jah 

mov al, 'I* 

transmit 

; Transfer Count 

MOV AX, OFFSET DGROUP : _edata ; Transfer counter 
CMP AX, 0 

JZ no_init_data 
MOV CX , AX 



; RAM Destination address 
MOV AX, SEG _bdata 
MOV ES, AX 
MOV DI , 0 

; ROM Source address 
MOV AX, SEG _etext 
MOV DS, AX 
MOV SI, 0 

REP MOVSB ; Begin byte transfer from ROM to RAM 

mov al, • i * 

transmit 



,- Source DS; [SI] 

; Start of initializer storage in ROM 



; Destination ES: [DI] 

; Start of initialized variable area in RAM 
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no_init_data: 

; Clear uninitialized data area in DGROUP group 

mo v al , ' U 1 

transmit 

MOV CX, OFFSET DGROUP :_end 
MOV DI, OFFSET DGROUP :_edata ; 

SUB CX, DI 

JCXZ no_uninit_data 

MOV AX , 0 ; Initialize to 0 

REP STOSB 

mov al, 'u* 

transmit 



End of ' BSS 1 class in RAM 
Start of 'BSS' class in RAM 
Size of 'BSS* class in bytes 



no_uninit_data: 

; Initialize FAR DATA data in RAM with initializers stored in ROM 



Transfer Count 
MOV AX , SEG _bf data 
MOV CX , SEG _ef data 
SUB CX, AX 



Compute size of FAR_DATA segments in paragraphs 



JCXZ loopend 
MOV DX, CX 

Destination 



No FAR_DATA class 

Saves transfer count in paragraphs 



MOV ES, AX 
MOV DI , 0 



Destination ES: (DI] 

Start of FAR DATA class in RAM 



Source 

MOV AX, SEG _etext ; Source DS:[SI] 

MOV DS, AX ; Start of FAR_DATA initializer storage in ROM 

MOV SI, OFFSET DGROUP :_edata ; _edata is paragraph aligned 



Normalize Source Pointer 



MOV AX, SI 
MOV CL, 4 
SHR AX, CL 
MOV BX, AX 
MOV AX, DS 
ADD AX , BX 
MOV DS , AX 
MOV SI, 0 
MOV AX, DX 
loopbegin : 



Process base of source pointer 
Divide by 16 



Adjust base of source pointer 
Offset of source pointer is zero 
Restore transfer count in paragraphs 



CMP AX , 1000H 
JBE lastxfer 
MOV CX, 8000H 
SUB AX, 1000H 
JMP SHORT xferbegin 



More than 64K bytes to transfer? 
No 

Prepare to transfer 8000H words 



lastxfer : 

MOV CL, 3 
SHL AX, CL 
MOV CX, AX 
MOV AX , 0 
xferbegin: 

REP MOVSW 

CMP AX, 0 
JE loopend 



Number of WORDS = paragraph * 8 

Set up transfer count in terms of WORDS 

No more to transfer 

; Transfer WORDS from ROM to RAM 
Any more data to transfer? 

No 



; Adjust Source and Destination pointers 



MOV BX, AX 
MOV AX , DS 
ADD AX, 1000H 
MOV DS , AX 
MOV AX , ES 
ADD AX, 1000H 
MOV ES , AX 
MOV SI , 0 
MOV DI , 0 
MOV AX , BX 
JMP loopbegin 
loopend : 



Saves transfer count 



Restores transfer count 



Clear uninitialized data area in FAR_BSS class 
Transfer Count 
MOV AX, SEG _bfbss 
MOV CX , SEG _efbss 

SUB CX,AX ; Compute size of FAR_BSS segments in paragraphs 

JCXZ loopfend ; No FAR_BSS class 

Destination 

MOV ES , AX ; Destination ES: (DI] 
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Start of FAR BSS class in RAM 



MOV DI , 0 

Transfer Count 
MOV AX,CX 
loopfbegin : 

CMP AX, 1000H 
JBE lastfxfer 
MOV CX, 8000H 
SUB AX, 1000H 
MOV BX, AX 

JMP SHORT xf erf begin 
lastfxfer: 



More than 64K bytes to initialize? 
No 

Prepare to transfer 8 00 OH words 
Saves transfer count 



MOV CL, 3 
SHL AX, CL 
MOV CX, AX 
MOV AX, 0 
MOV BX, AX 
xf erf begin: 

MOV AX, 0 
REP STOSW 

MOV AX , BX 
CMP AX, 0 
JE loop fend 
; Adjust Destination 
MOV AX, ES 
ADD AX, 1000H 
MOV ES , AX 
MOV DI , 0 
MOV AX , BX 
JMP loopfbegin 
loopf end : 



Number of WORDS = paragraph * 8 

Set up transfer count in terms of WORDS 

No more to transfer 

Saves transfer count 



; Initialize WORDS to zero 
; Restore transfer count 
; Any more data to transfer? 

; No 

pointers 



; Restore transfer count 



Clear uninitialized data area in HUGE_BSS class 
Transfer Count 
MOV AX, SEG _bhbss 
MOV CX, SEG _ehbss 

SUB CX, AX ; Compute size of HUGE_BSS segments in paragraphs 

JCXZ loophend ; No HUGE_BSS class 

Destination 



MOV ES , AX 
MOV DI , 0 

; Transfer Count 

MOV AX , CX 

loophbegin: 

CMP AX, 1000H 
JBE lasthxfer 
MOV CX, 8000H 
SUB AX, 1000H 
MOV BX, AX 



Destination ES : [DI] 

Start of HUGE BSS class in RAM 



More than 64K bytes to initialize? 
No 

Prepare to transfer 8000H words 
Saves transfer count 



JMP SHORT xferhbegin 
lasthxfer: 

MOV CL, 3 
SHL AX, CL 
MOV CX, AX 
MOV AX, 0 
MOV BX, AX 



Number of WORDs = paragraph * 8 

Set up transfer count in terms of WORDs 

No more to transfer 

Saves transfer count 



xferhbegin r 
MOV AX , 0 
REP STOSW 

MOV AX, BX 
CMP AX, 0 
JE loophend 



; Initialize WORDs to zero 
Restore transfer count 
Any more data to transfer? 

No 



Adjust Destinat ior. pointers 



MOV AX, ES 
ADD AX,1000H. 

MOV ES , AX 
MOV DI , 0 

MOV AX , BX . Rr store transfer count 



JMP loophbegin 
loophend: 



PUBLIC _init_done 
init done: 



Initialize the interrupt vector table here 



Interrupt types 0 to 4 are dedicated internal interrupts. 

Type 0 - Divide-error 

Type 1 - Single-step 

Type 2 - Non-maskable interrupt 

Type 3 - 1-byte INT instruction or Breakpoint 

Type 4 - Overflow 

Interrupt types 5 to 31 are reserved internal interrupts. 
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Interrupt types 32 to 255 are available for use. 

For example: 

The interrupt handling routine for vector 32 decimal is assumed to 
be the C function: void interrupt far int_hdlr{). 

The statement declaring code label _int_hdlr as an external far procedure 
has to be placed outside of all SEGMENT/ENDS pairs. 

See the sample EXTRN statement above. It is behind the GROUP statement. 
Below is the sample code to initialize an entry in the vector table: 

TYPE32 EQU 32 
MOV AX, 0 

MOV ES , AX /Reference base of interrupt vector table 

MOV AX, OFFSET _int_hdlr 

MOV ES : WORD PTR TYPE32*4,AX /Offset portion of vector 32 
MOV AX, SEG _int_hdlr 

MOV ES : WORD PTR TYPE32 *4+2 , AX /Base portion of vector 32 



TYPEO EQU 0 
MOV AX, 0 

MOV ES , AX /Reference base of interrupt vector table 
MOV AX, OFFSET cintDIV 

MOV ES : WORD PTR TYPE0*4,AX /Offset portion of vector 0 
MOV AX, SEG cintDIV 

MOV ES : WORD PTR TYPE0*4+2,AX ,-Base portion of vector 0 



; Setup data and stack segment here before releasing control to _main 

mov al, 'S' 

transmit 

public setup_main 
setup_main: 

mov ax, DGROUP 

mov ds, ax /Setup data segment 

ASSUME ds : DGROUP 

mov ss, ax /Setup stack pointer 

mov sp, OFFSET DGROUP: stack_t op 

ASSUME SS: DGROUP 

; FP emulator init function 
mov al, ' F' 

transmit 

EXTRN al init: FAR 

CALL FAR PTR alinit 

mov al , ' p ' 

transmit 



/Reset the EDAC Hard and Soft Error Interrupts 
mov dx, PCB_PPI_Ctrl 

mov al, PCB_PortC_Reset2 /EDAC Error Acknowledge (Active LOW) 

out dx, al 

mov al, PCB_PortC_Set2 

out dx, al 



/Send non-specific EOI to Interrupt Controller 
INTJ50I equ 0FF22h 

mov dx, INT_EOI 

mov ax, 08000h 

out dx, ax 



/* Mask ON/OFF Interrupts to the Interrupt Controller 
mov dx, IMASK 

mov ax, OEEh /allow INTO, Timers 

out dx, ax 



to the C run-time, enable interrupts 



/Ready to transfer control 



mov 

transmit 


al, 


'M' 


in 


al, 


SCCB_CMD 


mov 


al, 


OlOh 


out 


SCCB 


i_CMD, al 


mov 


al, 


028h 


out 


SCCB 


i_CMD, al 


mov 


al, 


030h 


out 


SCCE 


[_CMD, al 



reset pointer 

WRO : Reset EXT/Status Interrupts 
WRO : Reset TxINT/Pending 
WRO : Error Reset 
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mov al, 03 8h 

out SCCB_CMD, al ; WRO : Reset Highest IUS 

PUBLIC before_main 
before_main : 

st i 

call_main ;Pass control to C mainO in module dcs . c 



PUBLIC _exit, exit 

_exit LABEL FAR 

exit LABEL FAR 

dcs_hal t : 

jmp dcs_halt 



***************************************************************************** 

* 

* startup_error 

* 

* This routine halts the processor after displaying the error message which 

* consists of an exclamation point {!) followed by a number/letter. 



* Error Codes: 

* '1' EDAC RAM Test of 55AA failed 

* *2* EDAC RAM Test of Mod-257 failed 



startup_error : 

mov cl, 

mov al, 

transmit 
mov al, 

transmit 
mov al, 

transmit 

/First ES 

mov ax, 

mov cl, 

display 

mov ax, 

mov cl , 

display 

mov ax, 

mov cl, 

display 

mov ax , 

display 

mov al, 

transmit 

; Now DI 

mov ax, 

mov cl , 

display 

mov ax, 

mov cl, 

display 

mov ax , 

mov cl, 

display 

mov ax , 

display 



al 



cl 






es 

12 



es 

8 



es 

4 



es 



di 

12 



.di 

8 



di 

4 



di 



sehlt : 

jmp sehlt 



error code 



FP Support 



Trap for missing floating-point software. 

The floating point initialization routine { fpmath) will call this routine 

when one of the following conditions occurs: 

(1) 8087 floating point library (87. lib) is linked in but no 8087 coprocessor 
is present, that is, floating point emulator library is not linked. 

(2) Floating point i/o conversions are done, but no floating-point variables 
or expressions are used in the program. 

Default action is to halt the processor. 

PUBLIC fptrap 

fptrap LABEL FAR 

MOV AX, 3 ; Identify label fptrap. 

HLT 

JMP fptrap 



ERROR HANDLING 

INT 21H called. Register AH contains the function code. 

If function code is 00H, 25H, 35H or 4CH, the interrupt handler 
will process the call. 

For all other function codes, the interrupt handler will jump here. 
Default action is to halt the processor. 

PUBLIC doscalled 

doscalled LABEL FAR 

If you want to ignore the dos call, 
replace the following instructions. 

MOV AX, 4 ; Identify label doscalled 

HLT 

JMP doscalled 

WITH: 

EXTRN ignored: FAR 

JMP FAR PTR ignored 

This will cause the interrupt handler to ignore the dos call. 

ignore is an entry point back to the interrupt handler. 



; PROCEDURE cintDIV: 

PUBLIC cintDIV 

cintDIV PROC FAR ; Divide by 0 interrupt handler. 

MOV AX, 5 ; User-defined error recovery routine. 

; HLT ; Identify label cintDIV. 

JMP cintDIV 

cintDIV ENDP 



VARIABLE _errno: 

For certain C run-time functions, when an error condition occurs within the 
function, an error code will be placed in the _errno global variable. 

If a function sets the _errno variable upon error, its reference page will 
explicitly mention the _errno variable. 

All of the error codes are described in the Microsoft C run-time library 
reference manual. 

The values of these error codes are listed in the errno.h include file. 



FUNCTION mat her r: 

You may supply your own version of matherr function in your C program. 
If you do, you can obtain a value from the type field of the exception 
data structure which corresponds to the math error code listed in the 
math.h include file the Microsoft C run-time library reference 
manual contains a detail description of the matherr fucntion and the 
math error codes 

If you do not linh in your own matherr function, the matherr function 
included in the Microsoft C run-time library will be linked in. 

The function simply returns a zero value. 

If you link in your own version of the matherr function, it may perform 
special error handling if corrective action is taken and the 
the return value should be nonzero. 



PROCEDURE FF_MSGBANNER : 

The FF_MSGBANNER procedure will be called when an error condition occurs 

within in a math function and certain C run-time functions. 

It writes the first part of run-time error messages to standard 
error as follows: 

' \r\nrun-time error '. 
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, It is implemented as a null procedure here. 

PUBLIC FF_MSGBANNER 

FF_MSGBANNER PROC NEAR 

RET 

FF MSGBANNER ENDP 



PROCEDURE wrt2err : 

The wrt2err procedure will be called when an error condition occurs 

within in a math function and certain C run-time functions. 

It takes a near pointer in BX (DS:BX) which points to a LSTRING which is 
to be written to standard error. A LSTRING is a one-byte length followed 
by that many bytes for the character string (as opposed to a null- 
terminated string) . 

These LSTRINGs has the form of the first character being a capital letter 
followed by four digits. For examples, 'R600I', 'M6101', etc. The 

meaning of these error numbers are explained in detail in the Microsoft C 
reference manual. 

The wrt2err procedure is implemented as a null procedure here. 

PUBLIC wrt2err 

wrt2err PROC NEAR 

DS : BX points to the LSTRING. 

RET 

wrt2err ENDP 



PROCEDURE NMSG_WRITE: 

The NMSG_ WRITE procedure will be called when an error condition occurs 

within in a math function and certain C run-time functions. 

It searches the MSG segment for the address of a message string corresponding 
to the error condition. 

If a message string is found, DS:DX = string address, CX = string length. 

You may process or ignore the error message string. 

The follow table lists some of the error message numbers and the message strings: 
253 1 : MATH' , 13, 10, ' - floating-point error: ',0 

101 ' invalid' , 13 , 10 , 0 

102 ' denormal ', 13, 10 , 0 

103 'divide by O', 13, 10,0 

104 'overf low' , 13, 10 , 0 

105 'underflow' , 13, 10 , 0 

106 ' inexact ', 13 , 10 , 0 

10 7 ' unemulated' , 13 , 10 , 0 

108 'square root ' , 13 , 10 , 0 

109 13,10,0 

110 'stack overf low ', 13, 10 , 0 

111 'stack underflow' , 13 , 10, 0 

112 'explicitly generated ', 13 , 10 , 0 

PUBLIC NMSG_WRITE 

_NMSG_ WRITE PROC NEAR 
PUSH BP 



MOV BP, 


SP 




PUSH 


DS 




POP 


ES 




MOV DX, WORD PTR [BP+4] ; 


; DX = error message number 


CMP 


DX, 253 




JE 


NOTFOUND ; 


; Skip error message no. 253, 




; But process other error message numbers 


ASSUME 


DS : DGROUP 




MOV 


SI, OFFSET DGROUP : 


: MSG ; start of near messages 


TLOOP : 






LODSW 




; AX = current message number 


CMP 


AX , DX 




JE 


FOUND 


; Found error message string 


INC 


AX 




XCHG 


AX, SI 




JZ 


NOTFOUND 


; At end and error message string not 


XCHG 


DI, AX 




XOR 


AX, AX 




MOV 


CX, -1 




REPNE 


SCASB 


; Skip until OH 


MOV 


SI , DI 




JMP 


TLOOP 


; Try next entry 


FOUND: 






XCHG 


AX, SI 


; SI = offset to string address 


XCHG 


DX, AX 


; DS : DX = string address 


MOV 


DI , DX 


,- Determine length of message string 


XOR 


AX, AX 


; String is terminated with byte Oh 


MOV 


CX, -1 
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; ES = DS already 



REPNE SCASB 
NOT CX 

DEC CX ; CX = string length 

; May include user-defined code here to output error message 
; DS : DX = string address, CX = string length 
NOT FOUND r 

MOV SP, BP 
POP BP 
RET 

NMSG_WRITE ENDP 

PUBLIC dataseg 

dataseg DW DGROUP 



TEXT ENDS 



EMULATOR_TEXT segment para public ’CODE' 

public EmDataSeg 

EmDataSeg dw EMULATOR_DATA 

EMULATOR TEXT ends 



BOOTSTRAP SEGMENT AT OFFFFH 
cli 

mov dx, UMCS 

mov ax, UMCS_DATA /Upper Memory CS start of EPROM F000:0, 64K 

out dx, ax 

; mov dx, OFFAOh 

; mov ax, 0C038h 

; out dx, ax 

jmp far ptr START_ 

db ' Jah 1 

BOOTSTRAP ENDS 



***************************************************************************** 

* 

* C_ETEXT 

* 

* If you specify the INITDATA control in the PROM86, v5.2 and up, it will 

* cause PROM 8 6 to place all initializers in ROM starting at this 

* location. The start-up routine assumes these initializers are placed 

* behind program code in ROM and copy them to RAM at power-up. 
***************************************************************************** 



C_ETEXT SEGMENT PARA PUBLIC 1 CODE_END 1 
PUBLIC _etext 

_etext LABEL BYTE ; This label marks the end of program code. 

C_ETEXT ENDS 



END START_ ; Make sure the START_ symbol is here! 

End of startup.asm 
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stpi.h, stpi.c 

/******************** 

* 

* STPI.H 



******** 



********** 



Petite Amateur Navy Satellite (PANSAT) . 

Embedded ROM software. 

Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 
Jim A. Horning {Jah) 



Revision History: 
Date Who 

3 Nov 1993 Jah 



What 

Creation 



ft***************************** 



********************* 



#ifdef STPI 
#def ine 

typedef struct 



CMD STR LEN 



80 



{ 



char name [10] ; 

void (*fptr) (char *inbuf) ; 

char usage [81] ; 



} cmd_struct ; 




static 


char 


*get_token (char *buf, char 


static 


void 


parse_cmd (char *cptr) ; 


static 


char 


*skip_blanks (char *cptr) ; 


static 


void 


clear_screen (char *cptr) j 


static 


void 


in_port (char *cptr) ; 


static 


void 


in_portw (char *cptr) ; 


static 


void 


out_port (char *cptr) ; 


static 


void 


out_portw (char *cptr) ; 


static 


void 


pcbr(char *cptr) ; 


static 


void 


pcbw(char *cptr) ; 


static 


void 


ad_conf ig (char *cptr) ; 


static 


void 


ad_int (char *cptr) ; 


static 


void 


ad_read(char *cptr) ; 


static 


void 


ad_status (char *cptr) ; 


static 


void 


debug cmd(char *cptr) ; 


static 


void 


disp_b (unsigned char a); 


static 


void 


disp_w (unsigned int a); 


static 


void 


m_on(char *cptr) ; 


static 


void 


m_off (char *cptr) ; 


static 


void 


m_clear(char *cptr) ; 


static 


void 


m spread (char *cptr) ; 


static 


void 


m_hunt (char *cptr) ; 


static 


void 


m_scca(char *cptr) ; 


static 


void 


m_sccb(char *cptr) ; 


static 


void . 


pa_read(char *cptr) ; 


static 


void 


pa_write (char *cptr) ; 


static 


void 


edit (char *cptr) ; 


static 


void 


dump (char *cptr) ; 


static 


void 


load (char *cptr) ; 


static 


void 


goto_load(char *cptr) ; 


static 


void 


msa_cmd(char *cptr) ; 


static 


void 


msb_cmd { cha r * cp t r ) ; 


static 


void 


time_cmd (char *cptr) ; 


static 


void 


test_cmd (char *cptr) ; 


static 


void 


rf_cmd(char *cptr) ; 


static 


void 


tx_cmd(char *cptr) ; 


static 


void 


rx_cmd(char *cptr) ; 
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static 


void 


eps_cmd(char *cptr) ; 


static 


void 


tmux_cmd (char *cptr) ; 


static 


void 


tlm_cmd(char *cptr); 


static 


void 


shutdown_cmd (char *cptr) 


static 

#endif 


void 


bcm_cmd(char *cptr) ; 


#if ndef STPI 





extern void monitor (void) ; 
#endif 



/a**************************************************************************** 

★ 

* STPI . C 

* Petite Amateur Navy Satellite (PANSAT) . 

* Embedded ROM software. 

* Copyright (c) 1996 Space Systems Academic Group, Naval Postgradate School. 

* Jim A. Horning (Jah) 

* 

* Revision History: 

* Date Who What 

* + + 

* 3 Nov 1993 Jah Creation 

* 

****************************************************************************/ 



#include <string.h> 
#include <ctype.h> 
#include <math.h> 



# include "gen_defs.h" 

#def ine STPI 

#include "stpi.h" 

#undef STPI 

#include "ad . h" 

#include "bcm.h" 

#include "clock. h" 

# include "dcs . h" 

# include "eps .h" 

# include "pcb.h" 

#include "print. h" 

# include "modem. h" 

^include "tlm.h" /* must be before msu.h */ 

^include "msu.h" 

#include "see .h" 

#include " terms. h" 



WORDadr (int ch) ; 



static cmd_struct cmd_table[) = 
{ 



"els”, 
"help" , 


clear_screen, 

parse_cmd. 


" CLS 
"HELP 




Clear the screen.", 
Display this menu.", 


"adc" , 
"adi" , 
"adr" , 
"ads" , 


ad_conf ig, 
ad_int , 
ad_read, 
ad_status # 


"ADC 

"ADI 

"ADR < channels 

"ADS 




Show A/D configuration.", 

Show A/D interrupt information 
Read A/D channels.", 

Show A/D status.". 


"debug" , 


debug_cmd, 


"DEBUG <0/l> 




Debug info Off/Onn", 


" in" , 

" inw" , 
"out" , 
"outw" , 


in_port , 
in_portw, 
out_jport, 
outjportw, 


"IN <port> 

"INW <port> 
"OUT <port> 
"OUTW <port> 


<value> 

<value> 


Input byte from port.", 

Input word from port.", 
Output byte from port.". 
Output word from port.", 


"pebr" , 
"pebw" , 


pebr , 
pebw. 


" PCBR <select> <addr> 
"PCBW <select> <addr> <value> 


PCB read.", 
PCB write.", 
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"m0 " , 


m_of f , 


"M0 




"ml " , 


m_on, 


"Ml 




" c " , m_ 


clear, "C 






"hunt" , 


m_hunt. 


"HUNT 




" s " , m 


spread, 


"S 




"scca" , 


m scca. 


"SCCA 


<WR#> <data> 


" sccb" , 


m_sccb. 


"SCCB 


<WR#> <data> 


"par" , 


pa_read. 


" PAR 




H paw " , 


pa_write. 


"PAW 


<f ilename> 


" load" , 


load, 


"LOAD 


<f ilename> 


"goto" , 


goto_load, 


"GOTO 




"dump" , 


dump, 


"DUMP 


<seg> <off> 


"edit" , 


edit , 


"EDIT 


<seg> <off> 


"msa" , 


msa_cmd, 


"MSA <0/1 


;r/w/e|s/f> <addr> 


"msb" , 


msb_cmd. 


"MSB <0/1 


:r/w/e*.s/f> <addr> 


"time" , 


time_cmd. 


"TIME 


<YY:MM:DD:HH:MM:SS: 


" test " , 


test_cmd, 


"TEST" , 




"rf ", 


rf_cmd. 


"RF <0/1; T/R; Tx/Rx; LOP, 


" tx" , 


tx_cmd, 


"TX <text message>". 


" rx" , 


rx_cmd. 


"RX <1; 


S>", 


"eps" , 


eps_cmd, 


"EPS <B A/B 


C/D/O/T ON/OFF; C 


" tmux" , 


tmux_cmd , 


"TMUX <A/B CH#/ON/OFF>" , 


"bcm" , 


bcm_cmd , 


"BCM <ON/OFF>" , 


" shutdown" 


, shutdown_cmd. 


"SHUTDOWN" , 




" tlm" , 


tlm_cmd. 


fl VI 




" " , 


parse_cmd. 


n n 








******************************1 



Modem OFF . " , 

Modem ON. " , 

Modem clear mode 78.125k.", 

Enter Hunt Mode . " , 

Modem spread mode 9.842k.", 

Send data to write register ( 
Send data to write register ( 

PA-100 read registers.", 

PA- 100 write registers.". 

Load binary image to 1000:0100. 
Jump to 1000:0100.", 

Dump memory . " , 

Edit memory locations.", 



Get/Set time." 



********W+++++**** 



* monitor () 



/ 



void monitor (void) 



static 


char 


cstr [ CMD_STR_ 


_LEN + 1) 


char 




♦cptr = cstr; 




char 




c; 




static 


int 


o 

II 

•H 




static 


int 


end_string - 


FALSE; 



while (is_serial_in ( ) && !end_string) 

( 

c = get_char(); 

if ( (i < CMD_STR_LEN) && (c != CR) ) 
cstr[i++] = c; 

if (c == CR) 

{ 

cstr [i] = NULL_CHAR; /* replaces CR with a NULL_CHAR */ 

end_string = TRUE; 

} 

} /* End Of WHILE */ 



if (end_string) 

( 

parse_cmd (cptr) ; 

serial_out (CTRL__W) ; /* indicate end of processing command */ 

i * 0; /* reset pointer into command string to zero */ 

end_string = FALSE; /* allow new string building next time */ 

> 



} /* End of monitor () */ 
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w > 



parse_cmd ( ) 



**************#******************************+******** 



void parse_cmd (char *cptr) 

{ 

int n, m; 

char cmd [10] ; 

int found; 

static char last_cmd[80] ; 



if (cptr [0] == ' J ' ) 

strcpy(cptr, last_cmd) ; 

else 

strcpy (last_cmd, cptr) ; 



/* copy last command to 
/* otherwise, save this 



this command */ 
command for next time 



*/ 



cptr = get_token (cptr, cmd) ; 



for (found = FALSE, n = 0; cmd_table [n] . name [ 0] != 'NO*; n++) 

{ 

if (stricmp (cmd, cmd_table [n] . name) == 0) 

■ { 



found = TRUE; 

if (stricmp (cmd, "help") == 0) 

{ 

home ( ) ; 
clr () ; 

dprint ( " PANSAT Monitor Commands\n" ) ; 
dprint ( " =======================\n" ) ; 

for (m = 0; cmd_table [m] . name [0] 1= '\0'; m++) 

dprint ("%s\n", cmd_table [m] .usage) ; 



} 



else if (cmd_table [n] . name [0] != ' \0 ' ) 

{ 

dprint (" \n") ; 

(*cmd_table [n] .fptr) (cptr) ; 
dprint ("\n'' ) ; 

} 



break; 

) 



if (! found) 

( 

serial_out (0x07) ; /* beep for error */ 
dprint ( n Command error . \n" ) ; 

> 



} /* End of parse_cmd () */ 



/***★************************************************************************* 



* get_token() 

* 

*****+**********************************************************************y 



char *get_token (char *buf, char *token) 

{ 

if (*buf == NULL_CHAR) 

{ 

♦token = NULL_CHAR ; 
return (buf ) ; 

} 

while ((*buf != ' < ) £.& (*buf != NULL_CHAR) ) 

*token++ = *buf++; 

♦token = NULL_CHAR; 

if (*buf == NULL_CHAR) 
return (buf ) ; 

else 

skip_blanks (buf) ; 
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} /* End of get_token() */ 



/ 



***ttttttt****t*t**t**tttt*tt****t*«***ttt*»**tt*tt*tl«:**tt**tt*tt 



* skip_blanks () 



/ 



char *skip_blanks (char *buf) 

{ 

while ( ( *buf == • ') && ( *buf != NULL_CHAR ) ) 

buf ++; 

return (buf ) ; 

} /* skip_blanks () */ 

^ **************************************************************************** * 
***************************************************************************** 
* 

* Supported monitor commands 



****************************************************************************/ 



/***************************************************************************** 



* clear_screen() 

* 



void clear_screen (char *cptr) 

{ 

home ( ) ; 
clr() ; 

} /* End of clear_screen ( ) */ 



******** 



********************* 



* in_port() 

* 

****************************************************************************/ 



void in_port(char *cptr) 

{ 

char param [20] ; 

unsigned char value; 



cptr = get_token (cptr , param) ; 
value = inp (cnv_hex (param) ) ; 

dprintCPort kX = kX " , cnv_hex (param) , value); 
disp_b (value) ; 

} /* End of in_port() */ 



* 

* in_portw() 

* 

**************************************************************************** ^ 

void in_portw (char *cptr) 

{ 

char param [20]; 

unsigned int value; 

cptr = get_token (cptr, param); 
value = inpw (cnv_hex (param) ) ; 

dprint("Port kX - kX ", cnv_hex (param) , value); 
disp_w (value) ; 

} /* End of in_portw() */ 



/***************************************************************************** 
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out_port ( ) 



i***************************************************************************/ 

void out_port {char *cptr) 

{ 

charport [10] , value [10] ; 



cptr = get_token (cptr, port); 
cptr = get_token (cptr, value); 

dprintCOut %X to port %X" , cnv_hex (value) , cnv_hex (port ) ) ; 
outp (cnv_hex (port) , (BYTE) cnv_hex (value) ) ; 

} /* End of outjportO */ 



/********************************************************************★******** 

★ 

* outjportw() 

★ 

★*★*★★★★★****★**★***★★★★★*★★**★★★*****★**★★*★**★***★**★★★*★★**★★★**★★*******/ 

void out jportw (char *cptr) 

{ 

charport [10] ( value [10]; 



cptr = get_token (cptr, port); 
cptr = get_token (cptr, value); 

dprint("Out %X to port %X" , cnv_hex (value) , cnv_hex (port ) ) ; 
outpw (cnv_hex (port ) , (WORD) cnv_hex (value) ) ; 

} /* End of outjportw() */ 



/***++*********************•*************************************************** 

★ 

* pcbr 

* 

****************************************************************************y 

void pcbr (char *cptr) 

{ 

char cbuf [20] ; 

unsigned int select, addr, value; 



cptr = get_token (cpt r , cbuf); 
select = cnv_hex (cbuf ) ; 

cptr = get_token (cptr, cbuf); 
addr = cn v_hex { cbu f ) ; 

value = pcb_read (select , addr); 

dprintC'PCBR %x %x %x", select, addr, value); 

} /* End of pcbr() */ 



/******************* + *************************♦**.*.**************************** 
* 

* pcbw 

* 

t*****************************************************.*.*********************^ 

voidpcbw (char *cptr) 

( 

char cbuf [20]; 

unsigned int select, addr, value; 



cptr = get_token (cptr , cbuf); 
select = cnv_hex(cbuf ) ; 

cptr = get_token (cptr, cbuf); 
addr » cnv_hex (cbuf ) ; 
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cptr = get_token leptr , cbuf) ; 
value = cnv_hex{cbuf ) ; 

pcb_write {select , addr, value); 

dprint("PCBW %x Vx %x", select, addr, value); 

} /* End of pcbw{) */ 

************************************************* 

* disp_b() 



************** 



void disp_b {unsigned char a) 

( 

int n; 



for {n = 0; n <= 7; n+ + ) 

( 

if {n == 4) 

dprint ( n " ) ; 

if {a & 0x80) 

dprint ( " 1" ) ; 

else 

dprint ( " 0" ) ; 
a = a << 1; 

} 

} /* End of disp_b { ) */ 



disp_w { ) 



*********************************************************************** 



void disp_w (unsigned int a) 

( 

int n; 



for {n = 0; n <= 15; n++) 

( 

if {nV4 == 0) 

dprint { " ") ; 

if {a & 0x8000) 
dprint ("1" ) ; 

else 

dprint ("0") ; 
a = a << 1; 

} 

} /* End of disp_w{) */ 



#def ine 


AD_ 


BASE 


0x8 0 






#def ine 


AD_ 


INSTR0 


AD_BASE 






#def ine 


AD_ 


INSTRl 


AD_BASE 


+ 


2 


#def ine 


AD_ 


INSTR2 


AD_BASE 


+ 


4 


#def ine 


AD_ 


INSTR3 


AD_BASE 


+ 


6 


#def ine 


AD_ 


INSTR4 


AD_BASE 


+ 


8 


#def ine 


AD_ 


INSTR5 


AD_BASE 


+ 


OxOA 


#def ine 


AD_ 


INSTR6 


AD^BASE 


+ 


OxOC 


#def ine 


AD_ 


_INSTR7 


AD_BASE 


+ 


OxOE 


#def ine 


AD_ 


CONFIG 


AD_BASE 


+ 


0x10 


#def ine 


AD_ 


_IER 


AD_BASE 


+ 


0X12 


#def ine 


AD_ 


_ISR 


AD_BASE 


+ 


0x14 


#def ine 


A D_ 


_TIMER AD_ 


BASE + 0x16 




#def ine 


AD_ 


FIFO 


AD BASE 


+ 


0x18 


#def ine 


AD_ 


_LIMIT AD 


BASE + OxlA 



/* Masks */ 

#def ine RAM00 0x0000 

#def ine RAM01 0x0100 



#def ine RAM02 



0x0200 



/** 



* ****************** 



* ad_config() 



****************************************************************************/ 



voidad_conf ig (char *cptr) 

{ 

unsigned int temp = inpw (AD_CONFIG) ; 



dprint ("A to D Configuration Register: %X = %X\n M , AD_CONFIG, temp); 

dprint (" Start = " ) ; 
if (temp & 0x0001) 

dprint ( " 1, Sequencer is running. \n" ) ; 

else 

dprint ("0, Sequencer is stopped . \n" ) ; 

dprint (" Reset = " ) ; 
if (temp & 0x0002) 

dprint ( 11 1, unit is still resetting . \n" ) ; 

else 

dprint ("0, unit is not resetting.\n"); 

dprint (" Auto Zero = " ) ; 
if (temp fit 0x0004) 

dprint ("1, in progress . \n" ) ; 

else 

dprint ("0, not occurring . \n" ) ; 

dprint (" Full Calibration = ") ; 
if (temp fit 0x0008) 

dprint ("1, in progress . \n" ) ; 

else 

dprint ("0, not occurring . \n" ) ; 

dprint (" Standby = "); 

if (temp fit 0x0010) 

dprint ("1, in standby mode.\n"); 

else 

dprint ("0, not in standby mode.\n"); 

dprint (" Channel Mask = "); 

if (temp & 0x0020) 

dprint("l, FIFO bits 15-13 are sign.\n"); 

else 

dprint("0, FIFO bits 15-13 are pointer . \n " ) ; 

dprint (" Short Auto Zero = " ); 
if (temp & 0x0040) 

dprint ("1, occurs before every conversion. \n" ) ; 

else 

dprint ("0, di sabled . \n" ) ; 

dprint ( n Sync = " ) ; 

if (temp & 0x0080) 

dprint ("1, SYNC pin is an output . \n" ) ; 

else 

dprint ("0, SYNC pin is an input. \n"); 

dprint ( N RAM pointer = %X\n”, (temp fit 0x0300) >> 8); 

dprint (" Test = « ); 

if (temp fit 0x0400) 

dprint ("1, in test mode.\n"); 

else 

dprint ("0, not in test mode.\n"); 

dprint (" Diagnostic = ") ; 

if (temp & 0x0800) 

dprint ("1, in diagnostic mode.\n"); 

else 

dprint (”0, not in diagnostic mode.\n"); 

} /* End of adc() */ 






********************** 



********** 



* ad_int() 



248 



void ad_int (char *cptr) 

( 

unsigned int ier = inpw (AD_IER) ; 
unsigned int temp, i; 

dprint ("A to D Interrupts: *X = %X\n", AD_IER, ier); 

dprint(" Interrupts enabled: "); 
for (temp = ier, i = 0; i <= 7; i+ + ) 

{ 

if (i ! = 6) 

if (temp & 0x0001) 

dprint ( " %d ", i) ; 
temp >> 1; 

} 

dprint ("\n") ; 

dprint (" Sequencer address to generate INTI = %X\n" , (ier & OxOFOO) >> 8); 

dprint (" # of conversions in FIFO to generate INT2 = %X\n" , (ier & 0xF800) >> 11) 

} /* End of ad_int() */ 



/*************•**++******************************++****+********************** 

* 

* ad_read 

* 

****************************************************************************/ 

void ad_read (char *cptr) 

( 

unsigned int c, value, isr, temp; 
double x; 

char buf (20] ; 



OUtpw (AD_CONFIG, 0x0002); 
while (inpw (AD_CONFIG) & 0x0002) 

OUtpw (AD_CONFIG, 0x0008); 
while (inpw (AD_CONFIG) & 0x0008) 

OUtpw (AD_CONFIG, 0x0000); 



/* Reset the A/D */ 

/* Wait for Reset bit to clear */ 



/* Full Calibration */ 

/* Wait for calibration to finish */ 



/* Stop sequencer, point to RAM 00 */ 



/* DCS Temperature, MUX+ = IN0, MUX- = GND */ 



outpw ( AD_INSTR0 , 


0xF202) ; 


/* 


acq. 


time = 


full way, no wdog, 12 -bit, */ 














/* 


Timer 


ON, NO sync, Vin- = Gnd, Vin+ 


= 


IN0 


*/ 








/* 


Pause 


= YES, loop = NO */ 














/* 


Note : 


pause will happen after loop * 


7 






/* Modem Temperature, MUX+ 


= INI, 


r MUX- 


- = GND 


*/ 








outpw ( AD_INSTR1 , 


0xF204 ) ; 


/* 


acq. 


time = 


full way, no wdog, 12 -bit, */ 














/* 


Timer 


ON, NO sync, Vin- = Gnd, Vin+ 


= 


INI 


*/ 








/* 


no pause, loop = NO */ 








/* TMUXA, MUX+ = 


IN4, MUX- 


= GND 


*/ 












outpw (AD_INSTR2 , 


0xF210) ; 


/* 


acq . 


time - 


full way, no wdog, 12 -bit, */ 














/* 


Timer 


ON, NO sync, Vin- = Gnd, Vin+ 


= 


IN4 


*/ 








/* 


no pause, loop = NO */ 








/* TMUXB, MUX+ = 


INS , MUX- 


= GND 


V 












outpw (AD_INSTR3 , 


0xF21 8 ) ; 


/* 


acq. 


time = 


full way, no wdog, 12 -bit, */ 














/* 


Timer 


ON, NO sync, Vin- = Gnd, Vin+ 


= 


INS 


*/ 








/* 


no pause, loop = NO * / 








/* EPS, MXJX+ = IN2, MUX- = 


GND *, 


/ 












OUtpw (AD_INSTR4 , 


0xF2 09) ; 


/* 


acq. 


time = 


full way, no wdog, 12 -bit, */ 














/* 


Timer 


ON, NO sync, Vin- = Gnd, Vin+ 


= 


IN2 


*/ 








/* 


no pause, loop = YES */ 









/* RAM 01(1) and 10(2) are not set - limit stuff */ 



/* Timer to slow the conversion rate */ 
/* OUtpw (AD_TIMER, 0x1000); */ 

OUtpw (AD_TIMER, 2000); 



/* Reset the A/D */ 

/* Wait for Reset bit to clear */ 
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outpw (AD_CONFIG, 0x0002); 
while (inpw (AD_CONFIG) & 0x0002) 



outpw(AD_CONFIG, 0x0001) ; /* start sequencer */ 



/* Wait for INT 5 - Pause Interrupt */ 
while ( ! inpw (AD_ISR & 0x0020)) 

/* Sequencer is stopped, due to Pause in last instruction */ 

/* Wait for 5 samples in the FIFO */ 
while ( ( (inpw (AD_ISR) & OxFBOO) >> 11) < 5) 



c = { inpw (AD_ISR) & OxFBOO) >> 11; 
while (c) 

{ 

value = inpw (AD_FIFO) ; 

dprint("%u) ”, (value & OxEOOO) >> 13); 
if (value & 0x1000) 
dprint ( ” - ” ) ; 

dprint(”%u, ", (value & OxOFFF) ) ; 

dprint ("0x%X, ", (value & OxOFFF)); 

x = (double) (value & OxOFFF) ; 
x = (x/4095 . 0 ) *5.0; 

dprint ("%3 .31f Volts” , x) ; 

switch ( (value&OxEOOO) >>13) 

{ 

case 0: /* DCS Temp */ 

x = (x - 0.5) *100; 

dprint (", DCS Temp. = %3.31f C” , x) ; 
break,- 

case 1: /* Modem Temp */ 

X = (x - 0.5) /. 01; 

dprint (", Modem Temp. = %3.31f C", x) ; 
break; 

case 2: /* TMUXA Temp */ 

dprint (", TMUXA Temp. = %d C", cnv_therm (value&OxOFFF) ) ,- 
break; 

case 3: /* TMUXB Temp */ 

dprint (”, TMUXB Temp. = %d C", cnv_therm (value&OxOFFF) ) ; 
break; 

case 4: /* EPS Measurement */ 

dprint ( " , EPS" ) ; 
break; 



} 



dprint 

C — ; 



("\n") . 



/* Do a diagnostic test */ 



/* Using Diagnostic mode: 
OUtpw ( AD_INSTFf C , CxF2C2); 



VIN+ = 000 = VREFOUT, VIN- = 000 = GND */ 

/* acq. time = full way, no wdog, 12-bit, */ 

/* Timer ON, NO sync */ 

/* Pause = YES, loop = NO */ 

/* Note: pause will happen after loop */ 



/* Using Diagnostic mode. VIN+ = 001 = VREF+ , VIN- = 001 = VREF- */ 
outpw (AD_INSTK : . C x FI 2 5 ) ; /* acq . time = full way, no wdog, 12 -bit, */ 



outpw (AD_CONFIG, Cx0GC2) , /* Reset the A/D */ 

while (inpw ( AL_CONF IG ) L 0x0002) /* Wait for Reset bit to clear */ 



outpw (AD_CONFIG, 0x0801); /• start sequencer in diagnostic mode */ 

/* Wait for INT S - Pause Interrupt */ 
while ( ! inpw ( AD_ISR 6. 0x0020)) 

/* Sequencer is stopped, due to Pause in last instruction */ 

/* Wait for 2 samples in the FIFO */ 
while ( ( (inpw (AD_ISR) & OxFBOO) >> 11) < 2) 
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C = ( inpw ( AD_ISR) & 0xF800) >> 11; 

while (c) 

( 

value = inpw (AD_FIFO) ; 
if (c == 2) 

dprint ( "Diagnostic: VREFOUT to GND : 
else if (c == 1) 

dprint ( "Diagnostic : VREF+ to VREF- : 
dprint ("%u) ", (value & OxEOOO) >> 13); 

if (value & 0x1000) 
dprint ( " - " ) ; 

dprint ("%u, ", (value & OxOFFF) ) ; 



") ; 
") ; 



dprint (" 0x*X, ", (value & OxOFFF)); 



x = (double) (value & OxOFFF) ; 
X = (x/ 4095.0) *5.0; 

dprint ( "%3 . 3lf Volts\n", x) ; 

C- - ; 



} /• End of ad_read() */ 



yttt*t**t***tttttttt*tt****t****tttt*****tt*tt*ttttt**t**t****t*****t***t***t* 



* ad_status 

♦ 

t«tft»fttt«***tttt***tt*tt*i*««*ttttttt**tt*t*****tittt*tt«t***tt**tt*t*t*t*tty 



void ad_status (char *cptr) 

( 

unsigned int isr =■ inpw (AD_ISR) ; 
unsigned int temp, i; 

dprint ("A to D Interrupts: %X = %X\n", AD_ISR, isr); 

dprint (" Interrupts Generated: "); 
for (temp = isr, i = 0; i <= 7; i++) 

{ 

if (i != 6) 

if (temp & 0x0001) 

dprint ("Vd ", i) ; 
temp >> 1; 

} 

dprint ("\n") ; 

dprint(" Sequencer's current address = %X\n" , (isr & OxOFOO) » 8) ; 

dprint ( " # of conversions in FIFO = VX\n", (isr & OxF800) >> 11); 

} /* End of ad_status() */ 



/***************************************************************************** 



m_of f ( ) 



/ 



voidm off (char *cptr) 

( 

modem_of f ( ) ; 
dprint ( "Modem OFF"); 

} /* End of m_off() */ 

/•*****»*********************************************************#***#******** 



m on ( ) 



+******************************************************/ 



voidm_on (char *cptr) 

{ 

modem_on ( ) ; 



dprint ( "Modem ON" ) ; 
} /* End of m_on() */ 
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/*****************************************************************************■ 

* 

* m_clear() 

* 

**************************************************■********★★****************/ 

voidm_clear (char *cptr) 

( 

modem_clear ( ) ; 
dprint ("Modem Clear") ; 

} /* End of m_clear() */ 



* m_spread ( ) 



********* 



void m_spread (char *cptr) 

( 

modem_spread ( ) ; 
dprint ( "Modem Spread"); 
} /* End of m_spread() */ 



* m_hunt ( ) 



******* 



********* 



void m_hunt (char *cptr) 

{ 

scc_hunt ( ) ; 

} /* End of m_hunt() */ 



********* 



* m_scca ( ) 



******************* 



******** 



/ 



voidm_scca (char *cptr) 

( 

char reg [10], value [10] ; 
WORD data; 



cptr = get_token (cptr, reg); 
cptr = get_token (cptr , value); 

if (value [0] == NULL_CHAR) 

{ 

outp (SCCA_CMD, cnv_hex(reg) ) ; 
data = inp(SCCA_CMD); 

dprint ("SCCA RR#%s = VX ", reg, data); 
disp_b ( (BYTE) data) ; 

} 



else 

scca_wreg (cnv_hex (reg) , cnv_hex (value) ) ; 
} /* End of m_scca() */ 



******** 



******************** 



******** 



* m_sccb ( ) 



********************** 



**/ 



voidm_sccb (char *cptr) 

{ 

char reg [10], value [10]; 
WORD data; 
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cptr = get_token (cptr, reg); 
cptr = get_token (cptr, value); 

if (value [0] == NULL_CHAR) 

{ 

outp (SCCB_CMD, cnv_hex (reg) ) ; 
data = inp (SCCB_CMD) ; 

dprint ( "SCCB RR#Vs = VX ", reg, data); 
disp_b( (BYTE) data) ; 

) 

else 

sccb_wreg (cnv_hex (reg) , cnv_hex (value) ) ; 
} /* End of m_sccb() */ 



/ 






pa_read ( ) 



************* j 



void pa_read (char *cptr) 

{ 

pal00_read_regs () ; 

} /* End of pa_read() * / 



/ 



***************************************************************************** 



* pa_write ( ) 

* 

* This command requests of the terminal emulator program on the other side of 

* the RS-232 to send the contents of the filename requested via this command 

* parameter. The filename is preceeded with a CTRL-Z which indicates to the 

* terminal emulator that a request to open, read, and download a local file 

* across the serial port. The download is complete when a CTRL-Z from the 

* terminal emulator is sent and received at this end. 

* 

* The data across the serial line comes in pairs. The first is the address 

* offset (into the PA-100) , followed by the data to be written to that 

* address. If there is no data associated with the filename, then only 

* the terminating CTRL-Z will be sent, causing the count, c, to be zero. 



*************************************************************»**************/ 



void pa_write (char *cptr) 

{ 

char filename [30] ; 

BYTEx; 

int C, i; 

static palOO_instr_struct pal00_conf ig [75] ; 



cptr = get_token (cptr, filename); 

dprint ( "Receiving data from Vs.\n", filename); 

serial_out ( (BYTE) CTRL_Z) ; 
dprint ("Vs", filename); 
serial_out ( (BYTE) CTRL_Z) ; 



if ( (c = get_char ( ) ) == 0) 

dprint ("No data downloaded!"); 

else if (c < 75) 

( 

for (i = 0; i < C; i++) 

{ 

pal00_config [i] .address = get_char(); 
pal00_conf ig [i] .data = get_char(); 

) 

pal00_config [c] .address = OxFF; 
pal00_conf ig [c] .data = OxFF; 

dprint("Data received for %d instructions . \n" , c) ; 
pal00_write_table (pal00_conf ig) ; 
dprint ("Data downloaded to PA100." ); 
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else 

dprint ( "Error, attempting to load a table greater than 75 elements!"); 
} /* End of pa_write() */ 

/************************♦**************************************************** 



* load ( ) 



**************************************************************** 



********** j 



void load (char *cptr) 

( 

char filename [30] ; 

BYTE x; 

unsigned int c, i; 
unsigned long temp; 

BYTE far * ptr; 



temp = ((unsigned long) 0xl000<<16) + (unsigned long) (0x0100) ; 
ptr = (BYTE far *)temp; 

cptr = get_token (cptr, filename); 

dprint ( "Loading program image from %s to %P.\n", filename, ptr); 

serial_out ( (BYTE) CTRL_Y) ; 
dprint ( "%s" , filename); 
serial_out ( (BYTE) CTRL_Y) ; 



c = get_char ( ) ; 
c *= 256; 
c += get_char(); 

if (c == 0) 

dprint ("No program image loaded!"); 

else 

{ 

i = C; 

while (i--) 

{ 

x = get_char(); 

*ptr = X; 

++ptr; 

} 

dprint ( "Program image loaded, %d bytes.", c) ; 



} /* End of load ( ) */ 

/*******♦********************************************************************* 



* goto_load() 

•♦♦••♦i*********************************************************************/ 



void goto_load (char *cptr) 

{ 

/* Transfer control to the os RAM image at 0x1000:0100 */ 
_asm 
{ 



cli 






mov 


ax, 0x1000 




push ax 




; new CS = 0x1000 


mov 


ax, 0x0100 




pushax 

sti 

retf 




; new IP = 0x0100 



} 



} /* End of goto_load() */ 



/* 



*********************** + ************ # ***.******* # * + **** # * # **** + * 



dump ( ) 
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/ 



void dump (char *cptr) 

( 

char buf [10] ; 

Static BYTE far * ptr = 0L; 
BYTE va 1 ; 

WORD segment, offset; 

unsigned long temp; 
int i , j ; 



cptr = get_token(cptr, buf) ,* 
if (buf [0] ! = NULL_CHAR) 

( 

segment = cnv_hex (buf ) ; 
cptr = get_token (cptr , buf); 
offset = cnv_hex (buf ) ; 

temp = ((unsigned long) segment<<!6) + (unsigned long) (offset & OxFFFF) ; 
ptr = (BYTE far *)temp; 

) 



for (i = 0; i < 256; i + = 16) 

{ 

dprint ( " VP ", (BYTE far *) (ptr + i) ) ; 
for (j =0; j < 16; j++) 

( 

if (j == 8) 

dprint ( " " ) ; 

val = ( (BYTE) Mptr+i+j ) ) ; 
if (val < 0x10) 
dprint (” 0" ) ; 
dprint ("VX ", val); 

) 

dprint ( " " ) ; 

for (j = 0; j < 16; j++) 

( 

val = ( (BYTE) * (ptr+i+j) ) ; 
if ((val >= 32) && (val <= 127)) 
dprint (" Vc° , * (ptr+i+j) ) ; 

else 

dprint ( " . " ) ; 

} 

dprint ( "\n" ) ; 

) 



ptr += 256; 

} /* End of dumpO */ 



/************************************♦**************************************** 



* edit() 

♦ 

+*++++++**+*+***++++***+****+*********++++++*******************+************/ 



voidedit (char *cptr) 



char 

BYTE far * 

BYTE 

WORD 



buf [10] ; 
ptr; 

yal ; 

segment, offset; 



unsigned long temp; 



cptr = get_token (cptr, buf) ; 
segment = cnv_hex (buf ) ; 
cptr = get_token (cptr , buf ) ; 
offset = cnv_hex (buf ) ; 

temp = ((unsigned long) segment<<16) + (unsigned long) (offset & OxFFFF); 
ptr = (BYTE far *)temp; 

dprint ( "\nVP>" , ptr) ; 
get_string (buf , 50) ; 
while (buf [0] != NULL_CHAR) 

( 

val = cnv_hex(buf) ,- 
(*ptr) = val; 
ptr++; 
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} 



dprint (" \n%P>" , ptr) ; 
get_string (buf , 50); 



} /* End of edit () */ 



************* 



msu cmd() 



#define READ 1 

#def ine WRITE 2 

#def ine DUMP 3 

#def ine NONE 0 

#def ine FLASH 1 

#def ine SRAM 2 

#def ine STR LEN 100 



********************************* 



void msu_cmd (char *cptr, int device) 

{ 

char buf [10] , addr_buf [10] ; 

unsigned long intaddr; 



int 

unsigned int 

int 

int 

int 

WORD 

static BYTE 
BYTE 

static DWORD 



data; 



type = NONE ; 

1 ; 

action = NONE; 
i = 0; 

j ; 



Str [STR_LEN] ; 
dbuf [256] , val; 
daddr = 0 ; 



cptr = get_token (cptr, buf), 

if (buf [ 0] == * 0 * ) 

msu_off (device) ; 

else if (buf[0] == *1') 
msu on (device) ; 



/* Turn OFF */ 
/* Turn ON */ 



else 

t 

cptr = get_token (cptr, addr_buf) ; 
addr = cnv_lhex (addr_buf ) ; 

if (stricmp (buf , "rs") == 0) /* Read Static */ 

{ 

if (debug) 

dprint ( "Reading SRAM @ %lx\n" , addr); 
type = SRAM; 
action = READ; 

} 

else if (stricmp (buf , "rf") == 0) /* Read Flash */ 

{ 

i f ( debug ) 

dprint ( "Reading FLASH @ %lx\n" # addr) ; 
type = FLASH; 
action = READ; 

) 

else if (stricmp (buf , "df") == 0) /* Dump Flash */ 

{ 

type = FLASH; 
action = DUMP; 
if (addr_buf[0] != ’NO’) 
daddr = addr; 

/* else, get the next paragraph from the last dump */ 

) 



else if ( stricmp (buf , "ds") == 0) /* Dump Static */ 

t 

type = SRAM; 
action = DUMP; 
if (addr_buf[0] != * \ 0 ' ) 
daddr = addr; 

/* else, get the next paragraph from the last dump */ 



else if (stricmp (buf , 11 ws") 



0) /* Write Static */ 
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{ 



if (debug) 

dprint ( "Writing SRAM @ %lx\n", addr); 
type = SRAM; 
action = WRITE; 

) 

else if (stricmp (buf , "wf") == 0) /* Write Flash */ 

( 

if (debug) 

dprint ( "Writing FLASH @ %lx\n", addr); 
type = FLASH; 
action = WRITE; 

) 

else if (stricmp (buf , "ef") == 0) /* Erase Flash */ 

{ 

if (debug) 

dprint ( "Erasing FLASH for MSA\n" ) ; 
msu_flash_erase (device) ,- 
return; 

) 

else if (stricmp (buf , "af") == 0) /* Address Flash */ 

{ 

if (debug) 

dprint ( "Setting Flash address = Vlx\n", addr); 
msu_set_f addr (device, addr) ; 
return; 

} 

else if (stricmp (buf , "cf") == 0} /* Address Flash */ 

{ 

if (debug) 

dprint ( "Reading Flash Codes...."}; 

dprint ("Flash Codes = %X\n", msu_flash_codes (device) ) ; 
return; 

} 

else if (stricmp (buf , "tf") == 0) /* Test Flash */ 

( 

if (debug) 

dprint ("Performing Flash test...."); 

msu_f test (device) ; 
return; 

) 

else if (stricmp (buf , "ts") == 0} /* Test SRAM */ 

( 

msu_stest (device) ; 

) 

switch (action) 

{ 

case READ: 

if (type == SRAM) 

data = msu_sram_readl (device, addr++) ; 

else 

data = msu_flash_readl (device, addr++) ; 

while ((data != NULL_CHAR) && (i < STR_LEN- 1 ) ) 

{ 

str[i++] = data; 
if (type == SRAM) 

data = msu_sram_readl (device, addr++) ; 

else 

data = msu_flash_readl (device, addr++) ; 

} 

str [ i ] = NULL_CHAR; 
dprint (" Vs" , str) ; 
break; 

case DUMP: 

if (type == SRAM) 

msu_sram_read (device, daddr, (BYTE *)&dbuf, 256); 

else 

msu_f 1 a sh_read (device, daddr, (BYTE *)&dbuf, 256) 
for (i « 0; i < 256; i += 16, daddr += 16) 

( 

if (daddr < 0x10} 
dprint ("0") ; 
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if (daddr < 0x100) 
dprint ( "0" ) ; 
if (daddr < 0x1000) 
dprint ( "0" ) ; 
if (daddr < 0x10000) 
dprint ( "0" ) ; 
if (daddr < 0x100000) 
dprint ("0") ; 
dprint ("%1X ”, daddr); 

for (j = 0; j < 16; j++) 

{ 

if (j == 8) 

dprint (" "); 
val = dbuf[i+j]; 
if (val < 0x10) 
dprint { " 0" ) ; 
dprint ( " %X ", val); 

} 

dprint ( " " ) ; 

for (j =0; j < 16; j++) 

( 

val = dbuf [i+ j ] ; 

if ((val >= 32) && (val <= 127)) 
dprint ("%c T1 , dbuf[i+j]); 

else 

dprint ("."); 

) 

dprint ("\n M ) ; 

} 

break; 
case WRITE: 

while ( ( *Cptr != NULL_CHAR) &5c (i < STR_LEN) ) 

( 

if (type == SRAM) 

msu_sram_wri tel (device, addr++, *cptr) ; 

else 

msu_flash_writel (device, addr++, *cptr) ; 

i + + ; 
cptr++ ; 

) 

if (type == SRAM) 

msu_sram_writel (device, addr, *cptr) ; 

else 

msu_flash_wri tel (device, addr, *cptr) ; 
break; 

default : 

dprint ("MSU command error."); 

} /* End of SWITCH */ 

} /* End of ELSE +/ 

} /* End of msu_cmd() */ 



/***************************************************************************** 

* 

* msa_cmd ( ) 

* 

void msa_cmd (char *cptr) 

{ 

msu_cmd (cptr, MSA0) ; 

} /* End of msa_cmd() */ 



/***★***************+*****************************************************+*** 

* 

* msb_cmd ( ) 

★ 

void msb_cmd (char *cptr) 

( 

msu_cmd (cptr, MSB0) ; 

} /* End of msb_cmd ( ) */ 
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/ 



* debug_cmd ( ) 

*****************************************************************♦★*********/ 

void debug_cmd (char *cptr) 

{ 

char buf [10] ; 



cptr = get_token (cptr , buf); 



if (buf [ 0] 


== '0') 


debug 


= FALSE 


if (buf[0] 


== ' 1 ' ) 


debug 


= TRUE; 



} /* End of debug_cmd() */ 



/•fr*************************************************************************** 



* time_cmd() 

* 

t«*******«*****t****tt«*t*tttt*t*t****«*«ttt******tt^it**t****t*t*«t*t**t***^ 



void time_cmd (char *cptr) 
{ 



static 


int 


mdays ( ] = { 0 , 


, 31, 28, 


, 31, 30 


, 31, 30, 31, 


31, 30, 31, 


30, 31}; 


static 


char 


*dow_str(] = 


{"Thu”, 


"Fri" , 


"Sat”, "Sun" , 


"Mon" , "Tue" 


, "Wed" } 


static 


char 


♦dom_str [] = 


{ n Jan” , 


"Feb", 


"Mar”, "Apr", 


"May", "Jun" 


, "Jul", 








n Aug " , 


"Sep", ' 


'Oct", "Nov", 


"Dec" } ; 




unsigned longt. 


et, tdays, tsecs; 










char 


buf [20] ; 












int 




year, month. 


day, hour, min. 


sec, dow, leap; 





cptr = get_token (cptr, buf); 

if (buf [0] == NULL_CHAR) 

{ 

t * get_time(); 

et = get_elapsed_time () ; 

tsecs = t; 

tdays = t/SECS_PER_DAY; 

/* first, get elapsed years */ 

leap = 2; /* corresponds with Modulo four, starting with 1970 */ 

year = 0; 

while (tdays >= 366) 

{ 

if (leapV4 == 0) 

{ 

tdays -■ 366; 

tsecs -= 3 6 6 *SECS_PER_DAY ; 

) 

else 

{ 

tdays -= 365; 

tsecs -= 365*SECS_PER_DAY; 

} 

year++ ; 
leap++; 

} 

if ((tdays == 365) && ! (leap%4 »= 0)) 

( 

tdays -= 365; 

tsecs -= 3 6 5 * SECS_PER_DAY ; 
year++,- 

} 

/* now, get the month */ 
month = 1 ; 

while (tdays >= mdays [month] ) 

{ 

if ((month == 2) && (leap%4 == 0)) 

{ 

tdays -= 29; 

tsecs -= 2 9 * SECS_PER_DAY ; 

} 

else 
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{ 



tdays -= mdays [month] ; 

tsecs -= mdays [month] *SECS_PER_DAY; 

) 

month++; 

) 



day = tdays; 

tsecs - = day*SECS_PER_DAY; 

if (debug) 

{ 

dprint ( "year=%d, month=%d, day=%d ", year, month, day); 
dprint ( "tsecs remaining=%ld\n" , tsecs); 

} 



hour = tsecs/SECS_PER_HOUR; 
tsecs -= hour * SE CS_PER_HOUR ; 

min = tsecs/SECS_PER_MIN; 
tsecs -= min*SECS_PER_MIN; 

sec = tsecs; 

dow = (t/SECS_PER_DAY) %7 ; /* 0=Thu, l=Fri, etc. */ 

dprint("%s %d %s %d, ", dow_str [dow] , day+1, dom_str [month-1] , 1970+year) 
if (hour < 10) 

dprint (" 0%d: " , hour) ; 

else 

dprint ( "%d: " , hour); 
if (min < 10) 

dprint (" 0%d: " , min) ; 

else 

dprint (" %d: " , min); 
if (sec < 10) 

dprint (" 0%d" , sec); 

else 

dprint ( " %d" , sec) ; 

/* Elapsed time */ 
day = et/SECS_PER_DAY; 
et -= day*SECS_PER_DAY; 
hour = et/SECS_PER_HOUR; 
et -= hour *SECS_PER_HOUR ; 
min = et/SECS_PER_MIN; 
et -= min*SECS_PER_MIN; 
sec = et; 

dprint (" (Elapsed time = " ) ; 
if (day < 10) 

dprint (" 0%d: " , day) ; 

else 

dprint (" %d: " , day) ; 
if (hour < 10) 

dprint (" 0%d: " , hour); 

else 

dprint ( " %d : " , hour) ; 
if (min < 10) 

dprint (" 0%d: " , min); 

else 

dprint ("%d: " , min) ; 
if (sec < 10) 

dprint (" 0%d) \n" , sec) ; 

else 

dprint ( "%d) \n" , sec); 



else 



bu f [ 2 ] = NULL_CHAR ; 
year = atoi (buf ) - 70; 
if (year < 0) 

year += 100; /* compensate for next century */ 

buf [5] = NULL_CHAR; 
month = atoi (buf +3) - 1; 

bu f [ 8 ] = NULL_CHAR ; 
day = atoi (buf +6 ) - l ; 

buf [11] * NULL_CHAR; 
hour « atoi (buf +9) ; 

buf [14] * NULL_CHAR ; 
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min = atoi (buf +12) ; 



sec = atoi (buf +15) ; 

leap = (year+2)/4; /* number of leap years since 1970 */ 

t = year*SECS_PER_YEAR + leap*SECS_PER_DAY; 
while (month > 0) 

t += mdays [month--] *SECS_PER_DAY; 

t += day*SECS_PER_DAY ; 

t += (hour*SECS_PER_HOUR) + (min*SECS_PER_MIN) + sec; 
set_time ( t) ; 

) 

} /* End of time_cmd() */ 



* rf_cmd() 



**********«*****************************************************************/ 



#def ine TOCON 0xFF56 
#define TOCNT 0xFF50 
#def ine TOCMPA 0xFF52 
#def ine TOCMPB 0xFF54 

#def ine T1CON OxFFSE 
#define T1CNT 0xFF58 
#def ine T1CMPA 0xFF5A 
#def ine T1CMPB OxFFSC 

void rf_cmd( char *cptr) 

{ 

static BYTE bits = 0x00; 
char bu f [ 1 0 ] ; 

int temp; 



cptr = get_token (cptr, buf) ; 

if ( stricmp (buf , "0") == 0) 

eps_set_power (RF, OFF); 

else if (stricmp (buf , "1") == 0) 
eps_set_power (RF, ON); 



else if (stricmp (buf , "t") == 0) 

{ 

bits |= 0x01; 
pcb_write(C, C, bits); 

} 

else if (stricmp ibul . "r") == 0) 

{ 

bits 4= -OxC 1 , 
pcb_wnte(C. C. bits); 

) 



else if (stricmp buf "tx") *= 0) 

{ 

bits | - OxC* . 
pcb_wnte(C. C. t its) ; 

} 

else if (stricmp but 'rx') «= 0) 

{ 

bits -OxCi. 
pcb_wnte(0. 0, bits); 

} 



else if (stricmp (buf , "lop") == 0) 

{ 

bits St= -0x04 ; 
pcb_write ( 0 , 0, bits); 



) 
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0) 



else if (stricmp (buf , "loa") == 

( 

bits |= 0x04; 
pcb_write(0, 0, bits); 

} 



else if (stricmp (buf , "lhp") == 0) 

( 

bits &= -0x08; 
pcb_write(0, 0, bits); 

} 

else if (stricmp (buf , "lha") == 0) 

{ 

bits |= 0x08; 
pcb_write(0, 0, bits); 

} 



else if (stricmp (buf , "p") == 0) 

( 

cptr = get_token (cptr , buf); 

temp = cnv_hex(buf) ; 

temp &= 0x03; 

temp <<= 4; 

bits |= (BYTE) temp; 

pcb_write(0, 0, bits); 

} 



else if (stricmp (buf , "InaO") == 0) 

( 

bits |= 0x40; /* reverse logic than all others */ 

pcb_write(0, 0, bits); 

) 



else if (stricmp (buf , "Inal") == 0) 

{ 

bits &= -0x40; /* reverse logic than all others */ 

pcb_write(0, 0, bits); 

) 



else if (stricmp (buf , "hpaO") == 0) 

{ 

bits &= -0x80; 
pcb_write(0, 0, bits); 

) 

else if (stricmp(buf , "hpal") == 0) 

{ 

bits |= 0x80; 
pcb_write(0 / 0, bits); 

} 



else if ( stricmp (buf , "e") == 0) 

( 

OUtpw (T0CNT, 0) ; 

outpw (T0CMPA, 0); /* maximum count (65536) */ 

outpw (T0CON, OxCOOl) ; /* internal elk, retrigger, CMPA only */ 

outpw (T1CNT, 0) ; 

outpw (T1CMPA, 1) ; /* smallest compare A */ 

cptr = get_token (cptr, buf) ; 
if (buf (0] == NULL_CHAR) 

{ 

/* default to 5 second RF Enable */ 
temp = 140; /* -5 seconds */ 

) 

else 

( 

temp = cnv_hex (buf ) ; 

temp *=28; /* -28 CMPB per second */ 

} 

outpw (T1CMPB, temp) ; 

outpw (T1CON, OxCOO 6 ) ; /* ext. elk, one shot, CMPA/CMPB dual mode */ 

} 

} /* End of rf_cmd() */ 
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/ 



* test_cmd() 



********* 



void test_cmd (char *cptr) 

( 

int c, x; 

WORD value ; 
double d; 

#def ine AD_WAIT 5000 

pcb_write (EPSO, 3, 0x70); 
pcb_write (EPSO, 1, 0x50); 



/* Setup MUXeS A/B for first temperature sensors (Calibration resistors) */ 
pcb_write (TMUXA0 , 0, 0x10); 
pcb_write (TMUXB0, 0 # 0x10); 



pcb_write (EPSO, 3, 0x80); /* EPS Port 3 */ 

pcb_write (EPSO, 1, 0x30); /* EPS Port 1 */ 

eps_set_port2 (eps_get_port2 () ) ; 

outpw (AD_CONFIG, 0x0002); /* Reset the A/D */ 

/* Wait for RESET bit to clear */ 

for (x = 0; (X < AD_WAIT) && ( inpw (AD_CONFIG) & 0x0002); x++) 

if (X == AD_WAIT) 

( 

ad_flag = 1; 
return; 

) 



outpw (AD_CONFIG, 0x0008); /* Full Calibration */ 

/* Wait for CALIBRATION bit to clear */ 

for (x = 0; (x < AD_WAIT) && ( inpw (AD_CONFIG) & 0x0008); x++) 

if (x == AD_WAIT) 

{ 

ad_flag = l; 
return; 

} 



OUtpw (AD_CONFIG, 0x0000); 



/* stop the sequencer and point to RAM 00 */ 



/* Program A/D Sequencer 
outpw (AD_INSTR0, 0xF200 ) 
outpw (AD_INSTR1 , 0xF204 ) 
OUtpw (AD_INSTR2, 0xF208) 
OUtpw ( AD_INSTR3 , 0xF210) 
OUtpw (AD_INSTR4, 0xF218) 
outpw (AD_INSTR5, 0xF202) 



based on schedule for period 0 */ 



/* Pause */ 



/* Setup A/D Timer */ 

OUtpw (ADJTIMER, 2000); 

outpw (AD_CONFIG, 0x0002); /* Reset the A/D */ 

/* Wait for RESET bit to clear */ 

for (x =0; (x < AD_WAIT) && ( inpw (AD_CONFIG) & 0x0002); x++) 

if (X == AD_WAIT) 

{ 

ad_flag = 1; 
return; 

) 

/* Force A/D to interrupt when 5 readings in the FIFO occur */ 

/* outpw (AD_IER, 0x2804) ; */ 

/* Clear any interrupts of the A/D by reading the status register */ 
/* inpw(AD_ISR) ; */ 

/* Start the A/D Sequencer. Interrupt will occur eventually */ 
outpw (AD_CONFIG, 0x0001); /* start sequencer */ 



263 



/* Wait for 5 samples in the FIFO */ 
while ( ( (inpw(AD_ISR) & 0xF800) » 11) < 5) 



c = (inpw ( AD_ISR) & 0xF800) >> 11; 
while (c) 

( 

value = inpw (AD_FIFO) ; 

dprint(*'%u) ”, (value & OxEOOO) >> 13); 
if (value & 0x1000) 
dprint ( " - " ) ; 

dprint( M %u, ”, (value & OxOFFF)); 

dprint ("0x%X, ”, (value & OxOFFF) ) ; 

d = (double) (value & OxOFFF) ; 
d = (d/4095.0) *5.0; 

dprint ("%3 .31 f Volts", d) ; 

switch ( (value&OxEOOO) >>13) 

{ 

case 0: /* DCS Temp */ 

d = (d - 0.5) *100; 

dprint ( " , DCS Temp. = %3.31f C", d) ; 
break; 

case 1: /* Modem Temp */ 

d = (d - 0.5) / .01; 

dprint (", Modem Temp. = %3.31f C", d) ; 
break; 

case 3: /* TMUXA Temp */ 

dprint ( " , TMUXA Temp. = %d C", cnv_therm (value&OxOFFF) ) ; 
break; 

case 4: /* TMUXB Temp */ 

dprint (", TMUXB Temp. = %d C", cnv_therm (value&OxOFFF) ) ; 
break; 

case 2: /* EPS Measurement */ 

dprint (" , EPS") ; 
break; 



} 



dprint ( "Xn" ) ; 

C — ; 



} /* End of test_cmd() */ 



/* 



************ 



* tx_cmd ( ) 



********************** 



void tx_cmd (char *cptr) 

{ 

int i ; 



i = 0; 

while ( ( *cpt r •• NULL CHAR) && (i < 128)) 

{ 

cha_out_buJ C ( * ) • *cptr; 
cptr+* ; 



/* Setup the pointer to the source for DMA channel 1 (Tx) */ 
_asm 
{ 



mov 


ax, 


SEG cha_oui_buf 0 


rol 


ax. 


4 


mov 


bx. 


ax 


and 


ax, 


OxFFFO 


add 


ax, 


OFFSET cha_out_buf0 


adc 


bx. 


0 


and 


bx, 


OxOOOF 


mov 


dx, 


D1SRCL 


out 


dx. 


ax 
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mov ax, bx 
mov dx, D1SRCH 
out dx, ax 

} 

/* Setup the pointer to the destination for DMA channel 1 (Tx) */ 

OUtpw (D1DSTH, 0x0000); 

OUtpw (D1DSTL, SCCA_DATA) ; 

outpw (D1TC, i) ; /* DMA Transfer Count */ 

outpw (D1C0N, 0x1786); /* DST: i/o, no inc . , no dec.; SRC: mem, inc . , no dec. 

* terminate on TC; INT on TC; Dest . Synch; 

* low priority; do not use Tmr2; Byte xfer 

* Start the DMA channel */ 



} /* End of tx_cmd() */ 



/♦♦*******t**t***********»*t*************t****t********tt**t*****************t 



* rx_cmd ( ) 



void rx_cmd (char *cptr) 

( 

char buf [10] ; 



cptr = get_token (cptr , buf); 
if ( stricmp (buf , "i") == 0) 

{ 

inp (SCCA_DATA) ; 
inp (SCCA_DATA) ; 
inp ( SCCA_DATA) ; 



/* Setup the pointer to the destination for DMA channel 0 (Rx) +/ 
asm 



mov 


ax, 


SEG cha_in_buf0 


rol 


ax, 


4 


mov 


bx. 


ax 


and 


ax. 


OxFFFO 


add 


ax, 


OFFSET cha_in__buf0 


adc 


bx. 


0 


and 


bx. 


0x0 OOF 


mov 


dx. 


D0DSTL 


out 


dx, 


ax 


mov 


ax. 


bx 


mov 


dx. 


D0DSTH 


out 


dx, 


ax 


Setup 


the 


pointer to the sot 



outpw (D0SRCH, 0x0000); 

OU tpw ( DO SRCL , S CCA_DATA ) ; 

outpw (D0TC, 514); 

outpw (DOCON, 0xA366) ; 



for DMA channel 0 (Rx) */ 

/* DMA Transfer Count - include the two CRC bytes */ 

/* DST: mem, inc., no dec.; SRC: i/o, no inc., no dec. 

* terminate on TC; INT on TC; Source Synch; 

* high priority; do not use Tmr2; Byte xfer 

* START the channel */ 



dprintCRx initialized and ready. \n M ); 
return; 

} 



if ( inp ( SCCA_CMD) & 0x010) 

dprint ("Sync (Flag) not detected, still in Hunt Mode\n"); 

else 

dprint ("Sync (Flag) detected ! \n" ) ; 



if (stricmp (buf , "s") == 0) 

{ 

dprint ("Tx Underrun/EOM : iu, Rx Overrun: Vu\n” , a_txunderrun_eom, a_rxoverrun) ; 
dprint ( "Break/Abort : Vu\n" , a_brk_abort) ; 

} 
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if (rx_eom) 

{ 

dprint (" %s\n" , cha_in_buf 0 ) ; 
rx_eom = FALSE; 

} 



else 

dprint ("No message received . \n" ) ; 
} /* End of rx_cmd() */ 



/*************************************************★*************************** 



* eps_cmd() 

* 



void eps_cmd (char *cptr) 

( 



char 

static 

static 

static 

static 

static 

static 

static 

int 

int 



buf [10] ; 

char *ctrls [] ={ "Heat A" , " " , "TMUXA" , "MSA" # " " , " " , , 

H "Ant-Rel", "MSB" , " TMUXB " , " RF " , "HeatB", » " } ; 

char *bat_sw [] ={ "B Trickle", "B Online", "B Discharge", "B Charge", 

"A Trickle", "A Online", "A Discharge", "A Charge"},- 

int bat_cmdl [2] [9] = {{0, 0, 0, 0, 0, 1, 3, 5, 7}, {0, 0, 0, 0, 0, 9, 11, 13, 

int bat_cmd2 [2] [9] = {{0x70, 0x90, OxFl, 0xF3 , 0xF5, 0x10, 0x10, 0x10, 0x10} , 

{ OxBO , OxDO , 0xF7 , 0xF9, OxFB, 0x10, 0x10, 0x10, 0x10}}; 
double bat_cnv[2] (9] = { { 1, 1, .585, .585, .585, .409, .409, .409, .409}, 

(1, 1, .525, .525, .525, .21, .21, .21, .21}}; 

int i_sp_cmd[8] = {0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x60, 0x70} ; 

int i_sp_tbl[8] = {4, 5, 7, 9, 11, 13, 14, 16}; 

temp, n; 
bat, dev; 



int x; 



15 } } 



WORD a, tempw; 
double d, sign; 
BYTE b ; 



cptr = get_token (cptr, buf ) ; 
switch (buf [0] ) 

{ 

case ' b ' : 
case ' B' : 

cptr = get_token (cptr , buf ) ; 
if (stricmp (buf , "a") == 0) 
bat = B AT_A ,- 

else if (stricmp (buf , "b") == 0) 
bat = B AT_B ; 

else if (buf [0] == NULL_CHAR) 

{ 

tempw = eps_get_battery () ,- 

dprint ( "Battery Controls that are ON (Ox%X);\n" , tempw); 
for (x = 0; x <= 15; x++) 
if (tempw & (l<<x) ) 

dprint (" %s" , bat_sw[x)); 

dprint ( "\n" ) ; 
return ; 

) 

else 

< 

dprint ( "EPS cmd error: battery (%s) not recognized. \n" , buf); 
return; 

} 

cptr = get_token (cptr , buf ) ; 
if (stricmp (buf , "c") == 0) 
temp = BAT_CHARGE_ON ; 
else if (stricmp (buf , "d" ) == 0) 
temp = BAT_D1SCHARGE_0N; 
else if (stricmp (buf , "o") == 0) 
temp = BAT_ONL I NE ; 
else if (stricmp (buf , "t") == 0) 
temp = B AT_TR I C KLE_ON ; 

else 

{ 

dprintC'EPS cmd error: control (%s) not recognized . \n" , buf); 
return; 

) 



cptr * get__token (cptr , buf) ; 
if (stricmp (buf , "on") == 0) 
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eps_set_battery (bat , temp) ; 
else if (stricmp (buf , "off") == 0) 
eps_set_battery (bat , temp+1) ; 

else 

dprintC'EPS cmd error: option ( % s ) error.: %s\n" , buf); 
break ; 



case 1 c ' : 
case ' C' : 



cptr = get_token (cptr, buf); 
if (stricmp (buf , "tmuxa") == 0) 



dev 


= PWR_TMUXA; 




else if 


(stricmp (buf , "tmuxb") 


== 0) 


dev 


= PWR_TMUXB ; 




else if 


(stricmp (buf , "msa") = 


= 0) 


dev 


= PWR_MS A ; 




else if 


(stricmp (buf , "msb” ) = 


= 0) 


dev 


= PWR_MSB; 




else 'if 


(stricmp (buf , "heata") 


== 0) 


dev 


= PWR_HEATA; 




else if 


(stricmp (buf , "heath" ) 


== 0) 


dev 


= PWR_HEATB; 




else if 


(stricmp (buf , "rf" ) == 


0) 


dev 


= PWR_RF; 




else if 


(stricmp (buf , "antrel" 


) == 0) 


dev 


= PWR_ANTREL ; 




else if 


(buf [0] == NULL_CHAR) 





{ 

tempw = eps_get_power(); 

dprint ( "Subsystems that are ON (0xVX):\n", tempw); 
for (x = 0; x <= 15; x+ + ) 
if (tempw & (1<<x)) 

dprint (" *s", ctrls[x]); 

dprint ( " \n" ) ; 
return; 

) 

else 

{ 

dprintC'EPS cmd error: subsystem (%s) not recognized. \n" , buf); 
return; 

) 



cptr = get_token (cptr , buf) ; 
if (stricmp (buf , "on”) == 0) 
eps_set_power (dev, ON); 
else if (stricmp (buf , "off") == 0) 
eps_set_power (dev, OFF); 

else 

dprintC’EPS cmd error: power control syntax error: Vs.\n", buf); 
break ; 



case 1 v : 
case 'V' : 

cptr = get_token (cptr , buf); 

if ( (buf [0] == ’A') || (buf[0] == 'a')) 

{ 

bat = BAT_A ; 
n = atoi (& (buf +1) ) ; 

) 

else if ( (buf [ 0] == 'B') || (buf [0] == ’b')) 

{ 

bat = BAT_B ; 
n = atoi (& (buf 4-1) ) ; 

} 

else if ((buf[0] == 'S’) || (buf[0] == ' s ' ) ) 

{ 

bat = BAT_NONE; 
n = 0; 

} 

else if ((buf[0] == NULL_CHAR) || (temp < 0) || (temp > 8)) 

{ 

dprint ("EPS cmd error: voltage source (%s) not recognized . \n" , buf) 
return; 

} 



/* Setup the EPS MUXes via the PCB */ 
if (bat = BAT_NONE ) 

{ 

if ((n >= 5)) 

pcb_write (EPS0 , 3, bat_cmdl [bat] [n] ) ; 
pcb_write (EPS0, 1, bat_cmd2 [bat] [n] ) ; 
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dprint ( "Battery "); 
if (bat == BAT_A) 
dprint { "A" ) ; 

else 

dprint ( "B" ) ; 

dprint ( " Cell # %d (accutn.) ", n) ; 

a = adr(4) ; /* EPS uses channel 4 of the A/D */ 

d = a; 

d = 5.0* (d/4095) ; 

dprint("%u (0x%X) , %3.31f V -> %3.31f V\n" , a, a, d, d/bat_cnv [bat] [n] ) / 

) 

else/* its the s/c bus */ 

( 

dprint ("S/C "); 
pcb_write (EPSO , 1, OxFD) ; 

a = adr(4) ; /* EPS uses channel 4 of the A/D */ 

d = a; 

d = 5.0* (d/4095) ; 

dprint ("%u (0x%X) , %3.3lf V -> %3.3lf V\n" , a, a, d, d*3.41); 

} 

break; 



case ' i ' : 
case ' I ' : 

cptr = get_token (cptr , buf) ; 



if ( (buf 


[0] == 'AM 


1 1 


(buf [0] == 'a')) 




bat 


= BAT_A ; 








else if 


( (buf [0] == 


•B' 


) || (buf [0] == 


'b')) 


bat 


= BAT_B ; 








else if 
( 

bat 


( (buf [0) == 


'S' 


) || (buf [0] == 


■s') ) 


= BAT_NONE; 








n = 

} 

else if 
/ 


-1; 








( (buf [ 0] == 


' P' 


) || (buf [ 0] == 


•P')) 


\ 

bat 


= BAT NONE; 








n = 

) 


atoi (& (buf +1) ) ; 






else if 


(buf [0) == 


NULL 


_CHAR) 





( 

dprint ("EPS cmd error: current (%s) not recognized . \n" , buf); 
return; 

) 

/* Setup the EPS MUXes via the PCB */ 
if (bat == BAT_NONE) 

{ 

if (n == -1) /* its the s/c bus */ 

{ 

pcb_write (EPSO, 3, 0x80); 

b = eps_get_port2 {) | (BYTE) 0x01; eps_set_j)ort2 (b) ; 

pcb_write (EPSO , 1, 0x30); 
a= adr (4) ; 
d - a; 

dprint ("S/C current = %u (0x%X) , %.31f V -> %.3lf mA\n" , 
a , a, d/819.0, 1000 . 0* ( (d*0 . 002442) -5 . 0) ) ; 

} 

else 



pcb_write (EPSO , 3, i_sp_cmd [n] ) ; 

b = eps_get_port2 () | (BYTE) 0x01; eps_set__port2(b); 

pcb_write (EPSO , 1, 0x50); 
a * adr (4) ; 
d = a; 

dprint ("S/P: %d (#%d) current = %u (0x%X) , %.3lf V -> %.31f mA\n" f 

n, i_sp_tbl [n] , a, a, d/819.0, 1000 . 0* (d*0 . 000488 - 1.0) ); 

( 

} 

else /* one of the batteries */ 

{ 

dprint ( "Battery ”); 
if (bat == BAT_A) 

{ 

dprint { "A" ) ; 

pcb_write (EPSO , 3, 0x90); 
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} 

else 

{ 

dprint ( "B" ) ,- 

pcb_write (EPSO , 3, OxAO) ; 

} 

b = eps_get_port2 () | (BYTE) OxOl; eps_set_port2 (b) ; 

pcb_wri te (EPSO , 1, 0x30); 

a = adr (4) ; 
d - a; 



) 



/* Read the direction. */ 

n = pcb_read (EPS1 , 1) ; /* Port 5 of the EPS */ 

if (bat == BAT_A) 
temp = 0x01; 

else 

temp = 0x02; 

sign = (temp & n) ? 1.0 : -1.0; 

dprint( n current = %u (0x*X) , %31f V ->%31f mA\n", 

a, a, sign* (d/819 . 0) , 1000 . 0*sign* ( (d*0 . 002442) -5 . 0) ) ; 



break; 



case ' w' : 
case *W : 

eps_reset_wdog () ; 

dprint ( "Watchdog timer reset. \n" ) 
break; 



default .* 

dprint("EPS cmd error. \n"); 
break; 

} /* End of SWITCH */ 

} /* End of eps_cmd() */ 



/**•************************************************************************** 

* 

* WORD adr ( ) 



+****•**************•«***************************************************** 



*/ 



WORD adr old(int ch) 

( 

unsigned int c, value, isr, temp, value_save; 
double x; 



outpw (AD_CONFIG, 0x0002); 
while (inpw (AD_CONFIG) & 0x0002) 

outpw (AD_CONFIG, 0x0008) ; 
while ( inpw ( AD_CONFIG) & 0x0008) 

outpw (AD_CONFIG, 0x0000); 



/* Reset the A/D */ 

/* Wait for Reset bit to clear */ 



/* Full Calibration */ 

/* Wait for calibration to finish */ 



/* Stop sequencer, point to RAM 00 */ 



/* DCS Temperature, MUX-*- = IN0, MUX- = GND */ 

outpw (AD_INSTR0 , 0xF200) ; /* acq . time = full way, no wdog, 12-bit, */ 

/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN0 */ 
/* Pause = NO, loop = NO */ 



/* Modem Temperature, MUX+ 
outpw (AD_INSTR1 , 0xF204); 



/* TMUXA, MUX+ = IN4 , MUX- 
OUtpw (AD_INSTR2 , 0xF210) ; 



/* TMUXB, MUX+ = IN6, MUX- 
outpw (AD_INSTR3, 0xF2l8); 



INI, 


MUX- 


■ = GND */ 








/* 


acq . 


time = full way. 


no wdog, 12-bit, */ 






/* 


Timer ON, 


NO sync, Vin- =Gnd, Vin+ =IN1 


*/ 




/* 


no pause. 


loop = 


NO */ 




GND 


*/ 










/* 


acq. 


time = full way. 


no wdog, 12-bit, */ 






/* 


Timer ON, 


NO sync, Vin- = Gnd, Vin+= IN4 


*/ 




/* 


no pause, 


loop = 


NO */ 




GND 


*/ 










/* 


acq . 


time = full way. 


no wdog, 12 -bit, */ 






/* 


Timer ON, 


NO sync, Vin- =Gnd, Vin+ =IN6 


*/ 




/* 


no pause. 


loop = 


NO */ 
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/* EPS, MUX+ = IN2 , MUX- = GND */ 
outpw (AD_INSTR4, 0xF208) ; /* acq . 

/* 

/* 



time = full way, no wdog, 12 -bit, */ 
Timer ON, NO sync, Vin- =Gnd, Vin+ =IN1 
no pause, loop = NO */ 



/* Dummy instruction to PAUSE */ 
outpw (AD_INSTR5, 0xF202) ; 



/* RAM 01(1) and 10(2) are not set - limit stuff */ 

/* Timer to slow the conversion rate */ 
outpw (AD_TIMER, 1000); 



outpw (AD_CONFIG, 0x0002); /* Reset the A/D */ 

while ( inpw (AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 



outpw (AD_CONFIG, 0x0001); /* start sequencer */ 

/* Wait for INT 5 - Pause Interrupt */ 
while { ! inpw (AD_ISR & 0x0020)) 

/* Sequencer is stopped, due to Pause in last instruction */ 

/* Wait for 5 samples in the FIFO */ 
while ( { {inpw (AD_ISR) & 0xF800) >> 11) < 5) 



c = ( inpw (AD_ISR) & 0xF800) >> 11; 
while (c) 

( 

value = inpw (AD_FIFO) ; 

if { ( (value&OxEOOO) >>13 ) == ch) 
value_save = value & OxOFFF; 



C- - ; 

) 

return (value_save) ; 
} /* End of adr{) */ 



/*********★*+************♦*******+*****************+**★******★**************** 

* 

* tmux_cmd ( ) 

* 

****************************************************************************^ 
void tmux_cmd {char *cptr) 

i 

char buf [10] ; 
int ch; 

WORD a 

double x; 



cptr = get_token {cptr, buf) ; 
switch {buf [0] ) 

( 

case ' a ' : 
case 'A' : 

cptr = get_token {cptr , buf) ; 
if {stricmp {buf , “on") == 0) 

eps_set_power {PWR_TMUXA, ON) ; 
else if {stricmp (buf , "off") == 0) 
eps_set_power (PWR_TMUXA, OFF) ; 

else 

( 

ch = atoi (buf) ; 

if ( (ch < 0) | ( {ch > 31)) 

( 

dprint C'TMUX: bad cmd (Vs)\n“, buf); 
return; 

} 

pcb_write {TMUXA, 0, 0x10 + ch) ; 
a = adr (2) ; 
x = a; 
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x = (x/4 095 . 0) *5.0; 

dprint { "TMUXA Channel %d: %u (0x%X) , %3.31f V -> %d C" , 
ch, a & OxOFFF, a & OxOFFF, x, cnv_therm (a) ) ; 

) 

break; 



case 'b' : 
case ' B 1 : 

cptr = get_token(cptr, buf) ; 
if (stricmp(buf , "on") == 0) 

eps_se t_power ( PWR_TMUXB , ON) ; 
else if {stricmp {buf , "off”) == 0) 
eps_set_power { PWR_TMUXB, OFF) ; 

else 

{ 

ch = atoi(buf); 

if { (ch < 0) || (ch > 31) ) 

j 

dprint ("TMUX: bad cmd (%s)\n", buf); 
return; 

) 



pcb_write (TMUXB, 0, 0x10 + ch) ,- 
a = adr (3) ; 
x = a; 

x = (x/4095. 0) *5.0; 

dprint ("TMUXB Channel %d: Vu (0x*X) , *3. 3 If V -> %d C", 
ch, a & OxOFFF, a & OxOFFF, x, cnv_therm (a) ) ; 

) 

break; 



default : 

dprint ("TMUX: bad MUX (Vs).\n" 



buf) ; 



} /* End of tmux_cmd() */ 



/ 



************************************************************************* 



* tlm_cmd() 

* 



void tlm_cmd (char *cptr) 

( 

int i; 

BYTE *ptr = (BYTE * ) &tlm_record; 



serial_out (CTRL_X) ; 

for (i = 0; i < sizeof ( tlm_record_struct ) ; i++) 
serial_out (*ptr++) ; 

} /* End of tlm_cmd() */ 



/***************************************************************************** 



* read_eps_ad ( ) 

* 

**************************************************************************** ^ 



unsigned int read_eps_ad (void) 

{ 

outpw (AD_CONFIG, 0x0002); 
while ( i npw ( AD_CONF IG ) & 0x0002) 



outpw (AD_CONFIG, 0x0008); 
while (inpw(AD_CONFIG) & 0x0008) 



/* Reset the A/D */ 

/* Wait for Reset bit to clear */ 



/* Full Calibration */ 

/* Wait for calibration to finish */ 



/* EPS, MUX+ = IN2 , MUX- = GND */ 

/* outpw (AD_INSTR0 , 0xF269) ; */ /* Vin- = IN3, Vin+ = IN2 */ 

outpw (AD_INSTR0, 0xF209) ; /* acq. time = 1/2 way, no wdog, 12-bit, */ 

/* Timer ON, NO sync, Vin- =Gnd, Vin+ =IN2 */ 
/* no pause, loop = YES */ 

/* Timer to slow the delay before acquisition and consequent conversion */ 
outpw (AD_TIMER, 1000); /* 32 clocks * 1000 = ~ 4 msec */ 
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outpw (AD_CONFIG, 0x0002); /* Reset the A/D */ 

while {inpw (AD_C0NFIG) & 0x0002) /* Wait for Reset bit to clear */ 



outpw (AD_C0NFIG / 0x0001) ; /* start sequencer */ 

/* Wait for INT 5 - Pause Interrupt */ 
while { I inpw (AD_ISR & 0x0020)) 

/* Sequencer is stopped, due to Pause in last instruction */ 

/* Wait for 1 sample in the FIFO */ 
while { ( (inpw{AD_ISR) & 0xF800) >> 11) < 1) 

return {inpw (AD_FIFO) & OxOFFF) ; 

} /* End of read_eps_ad {) */ 

/*****★***************************************★***********★************★*****★ 

* 

* adr() 



************+****************************************** 



/ 



unsigned int adr(int ch) 

{ 

int n, i; 

unsigned int total; 



outpw {AD_CONFIG, 0x0002) ; /* Reset the A/D */ 

while (inpw (AD_CONFIG) & 0x0002) /* Wait for Reset bit to clear */ 



outpw {AD_C0NFIG, 0x0008); /* Full Calibration */ 

while {inpw (AD_CONFIG) & 0x0008) /* Wait for calibration to finish */ 

outpw (AD^CONFIG, 0x0000); /* Stop sequencer, point to RAM 00 */ 

/* Loop Bits set for all */ 
n = 1; 
switch (ch) 

( 

case 0: /* DCS: Single-ended, Vin+ = IN0 */ 

outpw (AD_INSTR0, 0xF200); 

OUtpw (AD_INSTR1, 0xF202) ; 
break ; 



case 1: /* MODEM: Single-ended, Vin+ = INI */ 

OUtpw (AD_INSTR0, 0xF2 04 ) ; 
outpw (AD_INSTR1, 0xF202) ; 
break ; 

case 2: /* TMUXA: Single-ended, Vin+ = IN4 */ 

outpw (AD_INSTR0, 0xF210) ; 

OUtpw ( AD_INSTR1 , 0xF2 02); 
break; 

case 3: /* TMUXB : Single- ended , Vin+ = IN6 */ 

outpw (AD_INSTR0, 0xF218) ; 
outpw (AD_INSTR1, 0xF202) ; 
break ; 

case 4; /* EPS: Single-ended, Vin+ = IN2 */ 

outpw (AD_INSTR0, 0xF208 ) ; 
outpw {AD_INSTR1 , 0xF202) ; 
break ; 

default : 

return (0) ; 
break; 

} /* End of SWITCH */ 



/* Timer to slow the delay before acquisition and consequent conversion */ 
outpw (AD_TIMER, 1000) ; /* 32 clocks * 1000 = - 4 msec */ 

outpw (AD_C0NFIG, 0x0002); /* Reset the A/D */ 

while ( inpw ( AD_C0NFIG) & 0x0002) /* Wait for Reset bit to clear */ 
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outpw (AD_CONFIG, 0x0001); /* start sequencer */ 

/* Wait for INT 5 - Pause Interrupt */ 
while ( ! inpw (AD_ISR & 0x0020)) 

/* Sequencer is stopped, due to Pause in last instruction */ 

/* Wait for n sample (s) in the FIFO */ 
while ( ( (inpw (AD_ISR) & 0xF800) >> 11) < n) 



if (n == 1) 

return { inpw (AD_FIF0) & OxOFFF) ; 



else 

( 

for (total = 0, i = 0; i < n; i++) 

total += inpw (AD_FIFO) & OxOFFF; 
return (total/n) ; 

) 



} /* End of adr() */ 

/***•**************************************************************♦*****•****** 



* sbu t down_cmd ( ) 

* 

***********♦************♦***************************************+***********/ 

void shut down_cmd (char *cptr) 

{ 



pcb_write (EPS0, 


0, 


0) ; 


/* 


Battery A control, TMUXA, HEATA */ 


pcb_write (EPS0, 


2, 


0) ; 


/* 


Other subsystem power */ 


pcb_write (EPS1 , 


2, 


0) ; 


/• 


Battery B control */ 



serial_out (CTRL_V) ; 
whi 1 e ( 1 ) 

} /* End of shutdown_cmd ( ) */ 

/ 



* bcm_cmd ( ) 

* 

***************«•••••••**••****•**************«*****************************/ 



voidbcm_cmd (ch'ar *cptr) 

{ 

char buf (10) ; 
int ch; 

WORD a; 
double x; 



cptr = get_token (cptr . buf); 

if (stricmp(bu! . *on*) 0) 

bcm_on • Tk’JZ , 

else if (stricn-p : t>uf . "off*) == 0) 
bcm_on • FALSF . 

else 

{ 

dprint ( trry Charq^ Monitor is "); 
if (bcm_or. 

dpnn: "ON n’ , 

else 

dpr int • OFF \n* ) ; 

} 



} /* End of bcm_crr.d ( > */ 

End of stpi.h, stpi.c 
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